tableau excel sur word

bonjour , j'aimerais créer une macro qui me permettent de copier 8 tableaux d'un document excel sur un document word déja existant , à un endroit précis et une taille précise ... voici le type de tableau que je dois insérer (en PJ n°1) . le document word s'appellera : "rapport essai RAC/RDC" et le document excel changera de nom ... en dessous , c'est ce que j'ai essayé de faire mais cela n'a pas fonctionné .. merci d'avance .




Sub Aaaa()


Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Set WordApp = New Word.Application

Application.DisplayAlerts = True
WordApp.ShowMe
WordApp.Visible = True

'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("C:\Users\thgarcia\Desktop\Doc1.docx", ReadOnly:=False)

' Copie les données Excel Tableau 1
Windows("C:\Users\thgarcia\Desktop\2015-01-23_RAC_1200mm² Cu+rond Al.xls").Activate
Worksheets("Feuil1").Range("C1:R5").Copy

' Colle les données dans Word
WordDoc.Range.PasteSpecial
WordApp.Selection.TypeParagraph
Application.CutCopyMode = False

' Copie les données Excel Tableau 1
Windows("Classeur1.xlsm").Activate
Worksheets("RAC").Range("D12:I21").Copy

' Colle les données dans Word
WordDoc.Range.PasteSpecial
WordApp.Selection.TypeParagraph
Application.CutCopyMode = False

'Sauvegarde mon fichier Word
WordDoc.Application.ActiveDocument.Save
WordApp.Application.Quit
End Sub