Sub test_OK()
Dim wrdApp As Object, wrdDoc1 As Object, strPath$, rng
Dim xlRng As Excel.Range, cpt&
strPath = ThisWorkbook.Path & "\"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc1 = wrdApp.Documents.Open(strPath & "test.doc")
Set xlRng = ActiveSheet.ListObjects(1).Range 'tableau structuré dans Excel
xlRng.Copy
Set rng = wrdDoc1.Range ' définition de la "plage" Word
With rng
.Collapse 0
.InsertBreak 2 'insertion d'un saut de page
.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
'recopie du tabeau Excel dans Word
End With
wrdDoc1.Close True
wrdApp.Quit
End Sub