Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C3')) Is Nothing Then
MsgBox 'Coucou' 'ici ta procèdure
End If
End Sub
Cordialement,Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B1')) Is Nothing Then
Macro1
End If
End Sub