Bonsoir
En simplifiant on pourrait passer par le simple clic droit
Même code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Range("B" & Target.Row) <> "" Then
Cancel = True
If UCase(Target) = "X" Then
Target = ""
Target.Offset(0, 1) = ""
Else
Target = "X"
Target.Offset(0, 1) = Sheets("Info").Range("F11")
End If
End If
End Sub
En passant par des cases à cocher, le plus compliqué c'est justement de positionner les cases à cocher
Bonne soirée