Dim flag As Boolean : variable visible dans le module
Private Sub Worksheet_Change(ByVal Target As Range)
If flag = True Then Exit Sub
flag = True
If Range("A1") = 0 Then
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("A2") = 0 Then
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
End If
flag = False
End Sub