Private test As Boolean 'déclare la variable test
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:D8")) Is Nothing Or Target.Count > 1 Then Exit Sub
If test = True Then test = False: Exit Sub
If Target = "1" Then
test = True
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).ClearContents
Target = "1"
End If
End Sub