XL 2010 VBA - Erreur de compilation

Bonjour
je suis relativement novice avec VBA et mon besoin est de renseigner un fichier Word existant avec des signets en les remplacant par des cellules dans EXCEL.
Pour cela, voici le code que j'ai dans un module VBA mais la compilation ne passe pas.
JE dois avoir une option ou autres car le même code avec un autre fichier EXCEL que j'ai récupéré fonctionne !

Merci pour votre aide:
J'ai le message
Erreur de compilation
Type défini par l'utilisateur non défini.
Ceci sur la ligne : Dim WordApp As Word.Application

Sub Client_Word()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

Set WordApp = CreateObject("Word Application")
WordApp.Visible = True 'Word n'est pas masqué pendant l'opération

Set WordDoc = WordApp.Documents.Open("C:\Users\phili\OneDrive\CONTACTO\DOSSIERS PATIENTS\CS VIERGE.docx") 'ouvre le document Word

For i = 1 To 5
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3, Signet4, Signet5
WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
Next i

WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'Pour imprimer le doc obtenu

'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word

End Sub