Boucle sur copie d'image

Bonjour tout le monde,

Je voudrais copier des images dans un fichier modèle de sorte à ce que chaque image soit copier sur un fichier modèle.

1-Ouvrir le fichier modèle

2-Copier l'image1

3-Enregistrer et fermer le fichier modèle

4- Répéter pour chaque image dans le dossier

La macro que j'utilise permet de le faire pour une image. Cependant je souhaite donc faire un boucle pour chaque image dans le dossier.

Voici le code que j'utilise:

Sub Insert_Image()

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

'On Error Resume Next

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Template_Files.docx") 'ouvrir le document template Word
WordDoc.InlineShapes.AddPicture Filename:="C:\MesImages\Image1.png" Image à Insérer 

On Error GoTo 0

With WordDoc.InlineShapes(1)
.ConvertToShape
End With

With WordDoc.Shapes(1)
.ZOrder msoBringInFrontOfText 'image au premier plan devant le texte
End With

End Sub

Merci pour votre aide.