[RESOLU] Case à cocher si colonne A remplie

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim h As Integer, g As Integer
    h = Range("E" & Target.Row).Top
    g = Range("E" & Target.Row).Left
    If Not Intersect(Target, [A:A]) Is Nothing And Target <> "" Then
        ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
            DisplayAsIcon:=False, Left:=g, Top:=h, Width:=15, Height:=12).Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim h As Integer, g As Integer, cb As CheckBox
    h = Range("E" & Target.Row).Top
    g = Range("E" & Target.Row).Left
    If Not Intersect(Target, [A:A]) Is Nothing And Target <> "" Then
       Set cb = ActiveSheet.CheckBoxes.Add(g, h, 0, 0)
    With cb
        .Text = ""
        .Value = xlOff
    End With
    End If
End Sub

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