Range.InRange (Word)

Renvoie la valeur true si la plage à laquelle la méthode est appliquée se trouve dans la plage spécifiée par l’argument étendue.

Cette méthode détermine si la plage renvoyée par l'expression se trouve dans l'objet Étendue spécifié, en comparant l'emplacement du caractère de début avec celui du caractère de fin ainsi que le type de l'article.

InRange (Range)

Range: Spécifie la plage utilisée par cette méthode pour déterminer si elle est contenue dans l’objet Range spécifié.

Set myRange = ActiveDocument.Words(1) 
If myRange.InRange(Selection.Range) = False Then myRange.Select