Selection.IPAtEndOfLine (Word)

True si le point d'insertion se trouve à la fin d'une ligne qui est renvoyé à la ligne suivante.

False si la sélection n'est pas réduite, si le point d'insertion n'est pas à la fin d'une ligne, ou si le point d'insertion est positionné avant une marque de paragraphe.

Selection.Collapse Direction:=wdCollapseEnd 
If Selection.IPAtEndOfLine = False Then 
 Selection.EndKey Unit:=wdLine, Extend:=wdMove 
End If