salut,

voila des bouts de mon code j'espère que ça t'aidera

ouvre ton doc word
Dim appword As Word.Application
Set appword = New Word.Application
Application.DisplayAlerts = True
appword.ShowMe
appword.Visible = True
appword.Documents.Open FileName:="fichierAouvrir"

va en fin de fichier
appword.Selection.EndKey Unit:=wdStory

selectionne les 3 dernieres lignes
appword.Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdExtend
With appword.Selection.Copy
End With

copie ds excel
Worksheets("NomPageExcel").Activate
range("a1").PasteSpecial



voila! bonne chance!