Bonjour
Tu notes ton sujet en résolu
Une erreur ou il faut que l'on ne cherche pas ?
Au cas de l'erreur
Remplaces ta macro dans le module de la feuille par celles-ci
Private Sub CommandButton1_Click()
Range("C2:C5,E2:E5").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("C2:C5"), Target) Is Nothing Then
If UCase(Target) = "X" Then Target = 1
ElseIf Not Intersect(Range("E2:E5"), Target) Is Nothing Then
If UCase(Target) = "X" Then Target = 3
End If
End Sub