Bonsoir
voici un exemple , un évènement(Ok) se déclenche à chaque changement dans la plage e:g9.
Ce code est à saisir dans les objets thisworkbook ou feuilles
A +
Bruno
Private Sub Worksheet_Change(ByVal Target As Range)
Dim VRange As Range
Set VRange = Range("E4:G9")
If Not Intersect(Target, VRange) Is Nothing Then MsgBox "ok"
End Sub