Remplacement text dans Word depuis Excel

Bonjour,

Je programme en vba sous excel. Mon fichier et un grand tableau (base de données).

A partir de cette base de donnée, je souhaite générer un document word.

J'ai donc un template et je souhaite avec la macro remplacer des parties de texte par les données dans ma base de donnée.

Voilà comment je fais :

' Je déclare mes variables
    Dim appWrd As Object
    Dim docWord As Object

' J'attribue à mes objet les propriété d'un document Word
    Set appWrd = CreateObject("Word.Application")
    Set docWord = CreateObject("Word.DOCUMENT")

' Je charge mon template
    Doc = "C:\...\template.dotx"    
    Set docWord = appWrd.Documents.Open(Doc)

' Je remplace une chaine de caractère par une autre
    With docWord.Content.Find
        .ClearFormatting
        .Text = "toto"
        With .Replacement
            .ClearFormatting
            .Text = "toto_new"
        End With
        .Execute Replace:=wdReplaceAll
        .Forward = True
        .Wrap = wdFindContinue
    End With

Ce code ne me retourne aucune erreur. Le document s'ouvre bien mais le remplacement de la chaire de caractères ne se fait pas.

Je ne comprends pas pourquoi, pouvez-vous m'aider ?

Merci d'avance,