Sub Vers_Word()
Dim NDF As String
Dim Temp As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer
Dim j As Integer
Dim Chemin
Chemin = ThisWorkbook.path & "\"
For j = 1 To 4 'mettre ici 100 à la place de 4 si cent fichiers il y a !!!!!!
NDF = Chemin & j & ".doc"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
Workbooks.Open Chemin & j & ".xls"
For i = 1 To 4 'nombre de tableaux
WordDoc.Tables(i).Range.Copy
Sheets(1).Activate
derl = Workbooks(j & ".xls").Worksheets(1).Range("A36536").End(xlUp).Row + 2
Workbooks(j & ".xls").Worksheets(1).Cells(derl, 1).Select
ActiveSheet.Paste
Next i
Application.DisplayAlerts = False
Workbooks(j & ".xls").SaveAs Filename:=j & ".xls"
WordDoc.Close
WordApp.Quit
Application.DisplayAlerts = True
Next j
MsgBox "terminé"
Workbooks.Close
End Sub