VBA dans WORD - Comment changer la couleur de certaines lettres ?

Bonjour à tous,

Comment faire un programme qui parcourt le texte (en noir sur fond blanc) de la première à la dernière lettre et qui par exemple met les e, é, è et ê en couleur rouge sur fond jaune ?

Merci !

Hello,

ça devrait faire l'affaire

Sub Colorier_les_e_en_rouge()
    Dim i As Integer
    Dim Liste_Lettres As Variant

    Liste_Lettres = Array("e", "é", "è", "ê", "ë", "E", "É", "È", "Ê", "Ë")

    Application.ScreenUpdating = False

    Options.DefaultHighlightColorIndex = wdYellow

    For i = LBound(Liste_Lettres) To UBound(Liste_Lettres)
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = Liste_Lettres(i)
            .MatchCase = True

            .Replacement.Font.ColorIndex = wdRed ' Texte en rouge
            .Replacement.Highlight = True        ' Surlignage jaune défini plus haut

            .Execute Replace:=wdReplaceAll
        End With
    Next i

    Application.ScreenUpdating = True

End Sub

NB : parcourir tout un document lettre par lettre serait bien trop long, le recherche et remplace fait très bien le job

Un grand Merci à toi !