Window.Selection (Word)

Renvoie l'objet Selection qui représente une plage sélectionnée ou le point d'insertion.

If Windows.Count >= 2 Then 
 Windows(1).Selection.Copy 
 Windows(1).Next.Activate 
 Selection.Paste 
End If