Transformer un document word en feuille excel

Sub ImporterWordVersExcel()
'necessite d'activer la reference microsoft word 10.0 Object Library
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim Wb As Workbook

Set Wb = Workbooks.Add(1)
Set AppWord = New Word.Application
AppWord.Visible = False
Set DocWord = _
AppWord.Documents.Open('C:\\monDocument.doc', ReadOnly:=True)

With AppWord
.Selection.WholeStory
.Selection.Copy
End With

Wb.ActiveSheet.Range('A1').Select
Wb.ActiveSheet.Paste
AppWord.Application.Quit
Application.CutCopyMode = False
Wb.SaveAs 'C:\\copieDocument.xls'
End Sub