Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:D100], Target) Is Nothing And Target.Count = 1 Then
If Target = "X" Then
Application.EnableEvents = False
lig = Target.Row
col = Target.Column
Cells(lig, 2).Resize(, 3).ClearContents
Cells(lig, 2).Resize(, 3).ClearFormats
Cells(lig, col) = "X"
Cells(lig, col).Interior.ColorIndex = Array(3, 4, 6)(col - 2)
Application.EnableEvents = True
End If
End If
End Sub