Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range('B2:D20')) Is Nothing Then 'modifie ton tableau
If Target.Value = '' Then
Target.Value ='X'
Else
Target.Value = ''
End If
End If
End Sub