Insertion par VBA d'un fichier word

[RemyD]

Bonjour,

Pour un projet professionnel, je dois créer un fichier excel qui permet de créer un nouveau fichier word et d'y insérer dedans les fichiers que l'on désire. Jusque-là pas de soucis j'ai effectuer les codes permettant de le faire mais à ce moment j'arrive à un problème, quand j'appuie sur mon premier bouton qui permet de créer un nouveau fichier et d'y insérer un autre dedans ça marche comme je le souhaite mais après quand j'appuie sur un deuxième bouton pour insérer un autre fichier dedans ce-là marche mais il m'insère le fichier au début de la page alors que j'en ai besoin à la fin. Je cherche une solution depuis un petit moment mais je ne trouve pas :/.
Voici mes lignes de codes pour mes 2 premiers boutons:

Private Sub CommandButton1_Click()
Dim FichierWord As Object
Set FichierWord = CreateObject("Word.Application")
' Création d'un nouveau fichier
    FichierWord.Documents.Add DocumentType:=wdNewBlankDocument
' Insertion de la fiche dans un document :
    FichierWord.ChangeFileOpenDirectory "G:\"
    FichierWord.Selection.InsertFile Filename:="Volet Présentation projet.doc", Range:="", _
        Link:=False
' Sauvegarde
    FichierWord.ActiveDocument.SaveAs "G:\Test\MT.doc"
' Fermer le document
    FichierWord.ActiveWindow.Close
    
Set FichierWord = Nothing


End Sub


Private Sub CommandButton2_Click()
Dim FichierWord As Object
Set FichierWord = CreateObject("Word.Application")
' ouverture du fichier
  FichierWord.Documents.Open ("G:\TEST\MT.doc")
' Insertion de la fiche
     FichierWord.ChangeFileOpenDirectory "G:\"
      FichierWord.Selection.InsertFile Filename:="Volet Présentation ECDK.doc", Range:="", _
        Link:=False
' Fermer le document
    FichierWord.ActiveWindow.Close
Set FichierWord = Nothing

Merci d'avance

Rémy.