T'éclairer ? ou te le faire ?
Si besoin d'éclaircissement:
Depuis excel tu ouvres ton word dans une new word.application
puis après tu fais une boucle du genre
with document.content.find
do while .execute(FindText:="tarecherche", Forward:=True, Format:=True, MatchWholeWord:=True) = True
compteur = compteur +1
loop
end with