Sub CopieExcelWord()
Dim PlageACopier As Range
Dim AppWord As Object
Set PlageACopier = Sheets('NomFeuille').Range('A1:G10') 'tu indique la plage dont tu as besoin
Set AppWord = CreateObject('Word.Application')
PlageACopier.Copy
With AppWord
.Visible = True
.documents.Open FileName:='C:\\Temp\\DocAOuvrir.doc' 'ton fichier word avec l'adresse
.Selection.Paste
End With
ActiveWorkbook.Save
Application.Quit
End Sub