Voici un exemple de macro qui colore les cellules du premier tableau du document en fonction de leur contenu :

• en vert brillant pour les cellules qui contiennent le mot "Paris"
• en jaune brillant pour les cellules qui contiennent le mot "Marseille"
• en bleu pâle pour les cellules qui contiennent le mot "Strasbourg"

Sub couleurs()
'macro écrite par m@rina
Dim cellule As Cell, ligne As Row, ville
For Each ligne In ActiveDocument.Tables(1).Rows
For Each cellule In ligne.Cells

With cellule.Shading
Select Case ville
Case ville = InStr(1, cellule.Range.Text, "Paris")
.BackgroundPatternColor = wdColorBrightGreen
Case ville = InStr(1, cellule.Range.Text, "Marseille")
.BackgroundPatternColor = wdColorLightYellow
Case ville = InStr(1, cellule.Range.Text, "Strasbourg")
.BackgroundPatternColor = wdColorPaleBlue
End Select
End With
Next
Next ligne
End Sub

Notez que la casse doit être respectée.