Si cellule A non vide alors créer checkbox dans autres cell

Bonjour à tous,

Comme dit dans le titre, je souhaiterais, si ma cellule A est non-vide, alors créer des checkbox dans les cellules de C à I de la même ligne.

J'ai trouvé ceci comme code, mais je n'arrive pas à l'adapter pour les autres cellules:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim h As Integer, g As Integer, l As Integer, c As Integer, cb As CheckBox
    h = Range("E" & Target.Row).Top
    g = Range("E" & Target.Row).Left
    l = Range("E" & Target.Row).Width
    c = g + Int(l / 2) - 8
    If Not Intersect(Target, [A:A]) Is Nothing And Target.Count = 1 Then
        If Target <> "" Then
            Set cb = ActiveSheet.CheckBoxes.Add(c, h, 0, 0)
            With cb
                .Text = ""
                .Value = xlOff
                .Name = "CheckBox_E" & Target.Row
            End With
        Else
            On Error Resume Next
            ActiveSheet.Shapes.Range("CheckBox_E" & Target.Row).Delete
            On Error GoTo 0
        End If
    End If
End Sub

Merci de votre aide.

Bàv

erreur réponse