Sub exportDonneesVersTableauWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject('word.application')
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & '\\monFichier.doc')
WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = ActiveWorkbook.Sheets(1).Range('C5')
'WordDoc.Close True
'WordApp.Quit
End Sub