Sub collerDonneesExcelDansWord()
Dim AppWord As Word.Application
Dim DocWord As Word.Document
ThisWorkbook.Worksheets('Feuil1').Range('A1:B15').Copy
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open('C:\\monDocument.doc')
DocWord.Range.PasteSpecial
'DocWord.Close True
'AppWord.Quit
End Sub