Sub test2()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Manu\Mes documents\test.docx") 'ouvre le document Word
WordApp.Visible = False 'Word est masqué pendant l'opération
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
Range("A1:C38").Copy
WordDoc.Bookmarks("Signet" & 1).Range.Select
WordApp.Run "coller"
'Sub coller() a mettre dans le document word
'
' coller Macro
'
' Selection.PasteAndFormat wdFormatOriginalFormatting
'End Sub
WordApp.Visible = True
End Sub