Bonjour,
Regarde
Intersect, méthode - Exemple
Cet exemple montre comment sélectionner l'intersection de deux plages nommées, « rg1 » et « rg2 » respectivement, situées sur la feuille Sheet1. En l'absence d'intersection entre ces plages, l'exemple illustre comment afficher un message.
Worksheets("Sheet1").Activate
Set isect = Application.Intersect(Range("rg1"), Range("rg2"))
If isect Is Nothing Then
MsgBox "Ranges do not intersect"
Else
isect.Select
End If