Nouvelle version
Sub CopieTexteSpecial() Selection.PasteSpecial Link:=False, _ DataType:=wdPasteText, _ Placement:= wdInLine, DisplayAsIcon:=False End Sub