vba sur excel

Sub RemplacerMotDocWord()
    'Nécessite d'activer la référence
    '"microsoft Word xx.x Object Library"
    
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    
    Set wordApp = New Word.Application
    wordApp.Visible = True
    Set wordDoc = wordApp.Documents.Open("C:\NomDocument.doc")
    
    With wordDoc.Content.Find
        .ClearFormatting
        .Text = "MotCible"
            With .Replacement
                .ClearFormatting
                .Text = "Nouveau mot"
            End With
        .Execute Replace:=wdReplaceAll
        .Forward = True
        .Wrap = wdFindContinue
    End With
    
    'wordDoc.Save
End Sub