Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cible As Range
Set cible = Range("D4:M41")
If Not Intersect(Target, cible) Is Nothing Then
If Target.Value = "" Then
Target.Value = "X"
ElseIf Target.Value = "X" Then
Target.ClearContents
End If
End If
End Sub