[COLOR=blue]Option Explicit[/COLOR]
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target As Range)
'
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("G7,J7,L7")) [COLOR=blue]Is Nothing Then[/COLOR]
[COLOR=blue]If[/COLOR] Range("I7") < 0 [COLOR=blue]Then[/COLOR]
MsgBox "Attention : tout explose dans 2 secondes !!!"
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]