Private Sub Worksheet_Change(ByVal Target As Range) 'Si on est en A1 If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'Si la cellule n'est pas vide If Target.value <> "" Then Call Macro1 Else 'Sinon... Call Macro2 End If End Sub End Sub