Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:F11")) Is Nothing Then '---adapter à la plage concernée
If UCase(Target) = "X" Then ' ---- permet la reconnaissance de x ou X
Application.EnableEvents = False ' ----inhibition événements pendant le changement
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)) = ""
Target = "X"
Application.EnableEvents = True '---réactivation détection événements
End If
End If
End Sub