données excel vers doc word

'necessite d'activer la reference microsoft Word xx.x Object Library
Sub Test()
Dim Wrd As Object, WDoc As Object
    Set Wrd = CreateObject("Word.Application")
    'Wrd.Visible = True 'toute l'opération peut être rendue visible
    DoEvents
    Set WDoc = Wrd.Documents.Open("D:\Doc\Doc.doc")
    DoEvents
    Wrd.Selection.EndKey 6
    Range("A1:D10").Copy
    Wrd.Selection.PasteExcelTable False, False, False
    Wrd.Selection.Find.ClearFormatting
    Application.CutCopyMode = False
    DoEvents
    WDoc.Close True
    Wrd.Quit
    Set WDoc = Nothing
    Set Wrd = Nothing
End Sub