[VBA-Excel] Comment écrire dans signet WORD ?

Bonjour,
Je dois rappatrier des données d'Excel vers un document Word.
J'ai créé des signets dans Word à cette fin (ici l'exemple d'un seul signet). Mais j'obtiens l'erreur "La classe ne gère pas l'automation ou la classe attendue". J'ai pourtant coché dans menu Références/Outils : Microsoft Word, Excel, Office 10.0 Object Library, Forms 2.0 Library, Visual Basic For Application et même Microsoft DAO 3.6 Object Library et OLE Automation. Rien n'y a fait. Pouquoi ?
Merci de votre aide. Voici mon code :

Sub Trt_fiche(chefdesecteur As String, comptable As String, ByRef secteur As String, ByRef numerodefiche As String, ByRef redacteur As String, numCGL As String, JCPC As String, ByRef datesaisie As Date, datecomptable As Date, sensCpte1 As String, lettre1 As String, cpte1 As String, specCpte1 As String, sensCpte2 As String, lettre2 As String, cpte2 As String, specCpte2 As String, montant As String, libelle As String)
Dim var1 As String
Dim var2 As Integer
Dim chemin As String
Dim prefixecomptable As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
chemin = "C:\Users\acer\Desktop\5-11-2009 bis bureau"

' Ouvre session word
Set WordApp = New Word.Application

' Ouvre document Word
Set WordDoc = WordApp.Documents.Open(chemin & "\modele.doc")

' Word est visible pendant l'opération
WordApp.ShowMe
WordApp.Visible = True

' Ecriture document au signet 'secteur'
WordDoc.Bookmarks.Item ("secteur")
WordDoc.Bookmarks("secteur").Range.Text = secteur
With WordDoc.Bookmarks("secteur")
.Range.Font.Size = 14
.Range.Bold = wdToggle
.Range.Italic = wdToggle
End With
Application.DisplayAlerts = True

(..id..)

' Sauvegarde
'WordApp.ActiveDocument.SaveAs chemin & "\fic"
WordDoc.SaveAs "C:\Users\acer\Desktop\5-11-2009 bis bureau\fic"

' Fermeture
'WordApp.ActiveDocument.Close
'WordApp.ActiveDocument.Quit
'Set WordApp = Nothing
'Set WordDoc = Nothing
WordDoc.Close True
WordApp.Quit
Exit Sub