private...machin...
Dim...
...
if not application.intersect(Target, Ton_Range1) is nothing then goto Action1
if not application.intersect(Target, Ton_Range2) is nothing then goto Action2
...
Action1 :
Ton code pour range1
exit sub
Action2 :
Ton code pour range2
exit sub
..
end sub