Word - remplacer une partie de la sélection

Bonjour,

Je cherche à créer une macro qui met en italique certains éléments dans mon texte. Il s'agit des lettres indiquant une partie d'un texte de loi. C'est-à-dire:

Art. 89, al. 3, lit. a --> le petit "a" doit être mis en italique.

En ce qui concerne l'exemple ci-dessus, j'ai déjà trouvé une solution avec .selection.find:

.Text = "lit. ([a-z][!a-z])"
.Replacement.Text = "lit.^s\1"
.Replacement.Font.Italic = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll

Suivi du code suivant pour que seule la lettre soit en italique:

.Text = "lit.^s"
.Replacement.Text = "lit.^s"
.Replacement.Font.Italic = False
.Execute Replace:=wdReplaceAll

Mais je coince lorsque qu'il y a plusieurs lettres à mettre en italique:

Art. 89, al. 3, lit. a, b
Art. 89, al. 3, lit. a et b
Art. 89, al. 3, lit. a, b, c
Art. 89, al. 3, lit. a, b et c
…

Il faudrait que les lettres (a, b, c...) soient en italique, mais que les virgules et les "et" qui les séparent ne le soient pas. J'arrive à tout mettre en italique en utilisant le code précédent et en l'adaptant, mais je n'arrive pas ensuite à enlever l'italique des virgules et des "et". Aussi, comme on ne sait pas combien de lettres sont notées après le "lit.", y a-t-il moyen d'utiliser un code avec des jokers (wildcards) ou faut-il faire des codes différents pour 2, 3... x lettres?

Un grand merci à tous ceux qui pourront m'apporter leurs lumières.