Macro demande amélioration : recherche et modifications formats mots clés

Bonjour, Je dois analyser pour mes recherches des rapports convertis en word très longs, et je fais des recherches par mots clés.
Par exemple sur un fichier WORD, j’ai recherché en mettre en gras et en rouge dans le texte les mots « femme», « fille », « santé », «éducation» .

Je fais une macro enregistrée sous : "femmefilleéducationsantéRouge" (code ci dessous) :

Enregistrer macro

Accueil/rechercher/j’écris femme/ok/remplacer : dans la fenêtre qui s’ouvre, je remplace « femme» par «femme»/plus/format/police : en gras et en rouge dans la fenêtre/ok/remplacer tout> une msgbox me dit qu’il a effectué x remplacement/fermer

rechercher/j’écris fille , puis … mêmes manœuvres et ainsi de suite pour chaque mot jusqu’à la fin/Arrêter l’enregistrement.

Ma macro s’appelle « femmefilleéducationsantéRouge», et elle fonctionne en cliquant sur exécuter. Je vois bien sur le code VBA les répétitions.

Mais mes pb :

1 c’est que c’est long (j’ai parfois des macro de 25 à 30 mots selon le thème de recherche),

2 si je fais une erreur de saisie ça me crée parfois un bug à l’exécution et je suis obligé de tout recommencer,

et 3 je ne peux pas revenir en arrière, corriger, enlever ou ajouter un autre mot une fois que la macro est enregistrée.

Je voudrais que l’une ou l’un d’entre vous qui s’y connait en VBA, me rectifie, refasse la macro ci-dessous, avec tous les mots clés sur la même ligne de code, de façon à ce que je puisse reproduire ce modèle de macro, et surtout pouvoir revenir sur cette ligne pour corriger ou ajouter d’autres mots.

Merci de m’aider. Cordialement.

Sub femmefilleéducationsantéROUGE()
'
' femmefilleéducationsantéROUGE Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = "femme"
        .Replacement.Text = "femme"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = "fille"
        .Replacement.Text = "fille"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = "éducation"
        .Replacement.Text = "éducation"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = "santé"
        .Replacement.Text = "santé"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub