XL 2010 [résolut]Copie du contenue d'un fichier Word a la fin d'un autre fichier word

[Mistrall]

Bonjour à tous ,

Dans le but de faire un rapport automatisé.
Je cherche a creer une User Form1 dans laquelle je fonctionne par des Check box et un bouton a presser.

Chaque checkbox coché appelle une macro. Jusque la tout va bien.
Chaque macro permet la création d'une annexe du rapport.
Ce que j'aimerai faire c'est une macro qui copie l’intégralité du texte de mon word créer par macro et le copie a la fin du fichier word defini.

Voila pour l'instant le code que j'ai

Private Sub CommandButton1_Click()
Call entête

If CheckBox1 = True Then
Call LOI

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")

Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\Rapport FR-EN pour LOI.docx")
WordApp.Selection.WholeStory
WordApp.Selection.Copy
WordApp.activedocument.Close




Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\Rapport FR-EN Entête général.docx ")
[B]
WordApp.Selection.EndKey Unit:=wdStory
WordApp.Selection.PasteAndFormat wdFormatOriginalFormatting
WordApp.Visible = True[/B]






End If


End Sub

J'ai une erreur sur la derniere ligne il me demande un argument.

Pouvez vous m'aider a résoudre cette erreur. Je précise que je débute en VBA , j'ai principalement appris sur des forums comme celui ci qui m'a déja aidé dans le passé.

Merci d'avance

Pascal

Edit : j'ai rajouté les ligne en Gras ca semble marché. qu'en pensez vous ?