Copier informations d'un document à un autre sans écraser

Bonjour,

Je possède actuellement un template appelé "DocPrésentationFinale" qui vient récupérer des informations d'une feuille de calcul excel.
Ce que j'essaie de faire, et :

Pour chaque fichier apportés :

- Remplir le template avec les informations au travers de signets >> Ok
- Copier le contenu de DocPrésentationFinale vers DocFinal >>Ok
- Fermer le classeur DocPresentationFinale pour le réutiliser >>Ok
- Refaire les instructions >>Ok
- Coller à la suite les nouvelles informations de mon DocPresentationFinal à la suite deDocFinal sans écraser les informations déjà existante

J'ai essayer de nombreuse solution avec des collapse, des content ect mais elle écrase à chaque fois avec le nouveau commentaire.

Ci-dessous le code:

Sub CreerDocumentWord()

ComptDoc = 1
Set MonWord = GetObject("C:\Users\toto\Desktop\Macro\DocPresentationFinale.docx")
Set Final = MonWord.Application
Set DocFinal = Final.Documents.Add

    For Z = 1 To Nombre(OuvrirFichier) 

        Set MonWord = GetObject("C:\Users\toto\Desktop\Macro\DocPresentationFinale.docx")
        MonWord.Application.Visible = True
        DocFinal.Application.Visible = True

        Call RemplirSignet("NomEnt", Tableau.Worksheets(1).Range("NOMUN").Offset(ComptDoc, 0), Final.Documents("DocPresentationFinale.docx"))
        Call RemplirSignet("CA", "12", Final.Documents("DocPresentationFinale.docx"))

      ' C'est à partir d'ici que cela coince. 

        MonWord.Range.Copy
        Final.Documents("Document1").Range.Paste
        Final.Documents("C:\Users\toto\Desktop\Macro\DocPresentationFinale.docx").Close savechanges:=False

        ComptDoc = ComptDoc + 1

     Next

End Sub

Un grand merci pour votre aide.