WordApp.Selection.Copy
WordApp.Documents("Dico.doc").Activate
'avant insertion notice : écrire Œuvres
WordApp.Selection.TypeText Text:="Œuvres : "
WordApp.Selection.MoveEnd Unit:=wdCharacter, Count:=-1 'déplacement d'un caractère en arrière ça fonctionne pourtant...
WordApp.Selection.PasteAndFormat Type:=wdPasteDefault