Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox ("Macro déclenchée")
End If
End Sub
***déclenche Macro en fonction du contenu de la cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 5 Then MsgBox ("Macro déclenchée")
End If
End Sub