Copier une cellule Excel et coller dans Word

Bonjour à tous,

Je souhaite copier le contenu d'une cellule et le coller dans un fichier Word enregistré au format .rtf. Le code ci dessous est fonctionnel, à partir d'Excel il permet d'ouvrir un document Word et de l'enregistrer. Je n'arrive pas à construire une requête complète qui bouclerait sur deux colonnes en alimentant un fichier Word par ligne.

Exemple:

Cellule A1 serait le nom de mon fichier Word et cellule H1 le contenu de mon fichier Word, enregistrement du fichier Word

Cellule A2 serait le nom de mon fichier Word suivant et cellule H2 son contenu, enregistrement du fichier Word
Cellule A3 serait le nom de mon fichier Word suivant et cellule H3 son contenu, enregistrement du fichier Word

ect..

Merci à vous tous pour votre contribution.

* Le code qui me permet depuis Excel d'ouvrir un fichier Word et de l'enregistrer.

Sub PilotageWord()
Dim MonBeauWord As Object
Set MonBeauWord = CreateObject("Word.Application")
MonBeauWord.Documents.Add
MonBeauWord.Selection.TypeText "Contenu de la cellule H1"------- Ici le texte de la cellule Excel H1
MonBeauWord.ActiveDocument.SaveAs "Monfichier"------- Ici le nom du fichier soit le texte de la cellule A1
MonBeauWord.ActiveDocument.SaveAs "D:\Documents Word"
MonBeauWord.ActiveDocument.Close

Set MonBeauWord = Nothing
End Sub