Sub importValeursdeTablesWord()
'activer reference Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte, j As Byte
Set WordApp = CreateObject('word.application')
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & '\\monFichier.doc')
'importer 5 valeurs de la premiere colonne (des 3 premiers tableaux du document Word)
'import these 3 sets of 5 numbers into 3 different worksheets in the active workbook
'inserer chaque serie dans un onglet different
For i = 1 To 3 'boucle sur 3 tableaux Word
For j = 1 To 5
ActiveWorkbook.Sheets(i).Cells(j, 1) = WordDoc.Tables(i).Columns(1).Cells(j)
Next j
Next i
'WordDoc.Close
'WordApp.Quit
End Sub