Sub RecuperDansWordDonneesXL()
'source code d'origine: Erlandsen Data Consulting
Dim Chemin$, Fichier$, xlApp, xlWB, Strg$, l&
'ici adapdét nom du dossier et du fichier
Chemin = "C:\Temp\": Fichier = "test.xls"
Documents.Add
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open(Chemin & Fichier)
l = 1 'dans cet exemple, on recopie les valeurs de la colonne A
With xlWB.Worksheets(1)
While .Cells(l, 1).Value <> ""
Strg = .Cells(l, 1).Value
With ActiveDocument.Content
.InsertAfter Strg
.InsertParagraphAfter
End With
l = l + 1
Wend
End With
xlWB.Close False: xlApp.Quit
Set xlWB = Nothing: Set xlApp = Nothing
End Sub