insérer texte dans word à un emplacement précis via VBA

Sub facture()

Windows("fichier excel1.xlsm").Activate
Dim An As String
    An = Cells(2, 16).Value
    Mo = Cells(2, 17).Value
    Mo1 = Mo + 1
    
Windows("fichier excel 2.xls").Activate
Sheets("feuille1").Select
'Ouverture du document .doc pour la facture
'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:document word à remplir.doc") 'ouvre le document Word
 
'remplissage de la facture
'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
    
   [COLOR="Red"] 'Date du jour en entête
    WordDoc.Rows(1).Range.Text = Format(Now, "dd/mm/yyyy")[/COLOR]

    'Date dans le tableau
    WordDoc.Tables(2).Columns(3).Cells(1).Range.Text = "01." & Mo & "." & An & " - " & "01.0" & Mo1 & "." & An
    
    'Données production dans le tableau
    WordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("C32")
    WordDoc.Tables(2).Columns(3).Cells(3).Range.Text = Range("C33")
    WordDoc.Tables(2).Columns(3).Cells(4).Range.Text = Range("C34")
    WordDoc.Tables(2).Columns(3).Cells(5).Range.Text = Range("C35")
    WordDoc.Tables(2).Columns(3).Cells(6).Range.Text = Range("C36")
    'WordDoc.Close True 'ferme le document Word en enregistrant les modifications