Microsoft 365 Résolu : Format tableau-case à cocher

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Range("BDD").ListObject
        If .DataBodyRange Is Nothing Then Exit Sub
        If Intersect(Target, .ListColumns("Demi-journée").DataBodyRange) Is Nothing Then Exit Sub
        Cancel = True
        If Target = "" Then Target.Value = "ü" Else Target.Value = ""
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next: Me.Shapes("ckb").Delete
    On Error GoTo 0

    If Target.Count = 1 Then
        If Not Intersect(Target, [BDD[Demi-journée]]) Is Nothing Then
            With Me.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, _
                 Left:=Target.Left + 2, Top:=Target.Top + 2, Width:=10, Height:=Target.Height - 4)
                .Name = "ckb"
                .LinkedCell = Target.Address
            End With
        End If
    End If
End Sub