Copier Cellules de Excel vers Word

Public Sub Test()

Dim Lettre As String
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document

On Error Resume Next

Lettre = "C:\Documents and Settings\Test.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True

Set LeDocWord = ObjWord.Documents.Open(Lettre)

Set TexteACopier= ThisWorkbook.Sheets("Texte").Range("A1:A9")

With LeDocWord
.Bookmarks("Texte").Range = TexteACopier
End With


Set ObjWord = Nothing

End Sub

ThisWorkbook.Sheets("Texte").Range("A1:A9").Copy
LeDocWord.Bookmarks("Texte").Range.PasteSpecial