Nouvelle version

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