Par exemple :

 

Public Sub SélectionCollage()
'macro écrite par Guy Moncomble
Dim Selection1 As Range
'Mémoriser la position de la sélection
Set Selection1 = Selection.Range
'Aller en fin de sélection
Selection.Collapse wdCollapseEnd
'Coller
Selection.Paste
'Le curseur est en fin de zone collée et l'on connait le début
Selection.MoveLeft unit:=wdCharacter, _
Count:=Selection.Range.Start - Selection1.End, Extend:=wdExtend
ActiveDocument.Bookmarks.Add "toto", Selection.Range
'Supprimer la première sélection
Selection1.Delete
End Sub