[XL-2007] erreur d'exécution 462, 1 fois sur 2 sujet

Bonjour,
sur le code suivant j'ai une erreur d'exécution 462, 1 fois sur 2, si j'ai bien compris il faut réinitialiser quelque chose mais je ne sais pas quoi et pas comment. pouvez-vous m'aider SVP ?

Code:

---

Sub MAJword()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl

Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Users\a.faurie\Desktop\essais.docx") 'ouvre le document Word
WordApp.Visible = True 'Word est masqué pendant l'opération

Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_affaire")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = "essais"
Next
Else
MsgBox "pas de contrôle de contenu."
End If

WordApp.Visible = True 'affiche le document Word

End Sub

---