Fichier Excel pilotant formulaire Word

Sub exportValeursExcelVersTableWord()
'Necessite d'activer la reference Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = createObject("word.application")
wordApp.Visible = True 'mettre False pour garder Word masqué
Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc") 'ouvre le document Word
'Tables(2) correspond au 2eme tableu du document Word
'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne
wordDoc.Tables(2).Columns(1).Cells(3).Range.Text = Range("A1")
'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne
wordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("A2")
'wordDoc.Close True 'ferme le document Word en enregistrant les modifications
'wordApp.Quit 'ferme l'application Word
End Sub