Voici une solution :

Sub colorie_pigeon()
Dim i, pos1, pos2 As Integer
Dim vrange As Range

With ActiveDocument
For i = 0 To .Characters.Count - 1
If i < .Characters.Count Then pos1 = i
If pos1 + 6 <= .Characters.Count Then
pos2 = pos1 + 6
Else
pos2 = pos1
End If
Set vrange = ActiveDocument.Range(pos1, pos2)

If vrange.Text = "Pigeon" Or vrange.Text = "pigeon" Then
vrange.Font.Color = wdColorRed
End If
Next i
End With


End Sub

Contexte 1 : tu connais d'avance la liste des mots à rechercher, tu peux les implanter dans un tableau de type string :
-------------
dim mots(100) as string

'affectation des mots
mots(1)="pigeon"
mots(2)="voiture"
...
mots(100)="trottoir"


for i=1 to 100

' là, tu mets le code que l'on a vu dans le programme précédent
' le texte sera balayé pour chacun des mots du tableau
next i

contexte 2 : tu ne connais pas les mots à l'avance, c'est l'utilisateur qui les saisit --> Il faut te servir d'un formulaire dans lequel une zone de texte permettra à l'utilisateur de saisir le mot ou la liste de mots séparés d'une virgule.

quand l'utilisateur clique sur le bouton <valider>, tu lances le programme vu précédemment.

Ca te va ?

Tu as pris quelle solution finalement ?

J'ai essayé mais cela ne marche pas : pouvez-vous me détailler, ligne par les lignes, le code utilisé ?

Merci d'avance