De Excel vers Word (mise en page)

Bonjour à tous,

suite à mon echec cuisant de mettre en forme des données excel sur powerpoint,

ancien post

je reviens à nouveau mais cette fois-ci avec l'idée de mettre en forme des données excel sur word.

j'ai un peu plus avancés cette fois-ci.

La première macro "Crea_Word" fonctionne comme je le souhaite donc pas la peine de s'y attarder

La seconde macro"Crea_Word_bis" me permet de créer une shape suivant si on trouve certaines valeurs ou non.

Voici le résultat que je souhaiterais obtenir :

Si il existe la valeur A (une seule fois ou plusieurs) dans la colonne Groupe, alors on créer une shape de tel couleur avec la valeur inscite dedans

Si il n'existe pas la valeur C, alors on ne créer aucune forme.

Mon code actuel cherche via Find la valeur et créer la forme en fonction, mais seulement pour une seule valeur.

J'aimerais éviter de copier coller bêtement mon code pour chaque lettre possible, mais essayer de faire une boucle?

If trouvermavaleur Is Nothing Then
Else
    With Wrd.Shapes.AddShape(msoTextOrientationHorizontal, 10, 10, 200, 700) 
    .Fill.ForeColor.RGB = CLng(RGB(204, 153, 102))
        With .TextFrame.TextRange
        .Text = "A"
        End With
    End With
End If

Set trouvermavaleur = Nothing

Je ne souhaitais pas passer par des méthodes comme dictionnary parce que je ne maitrise pas ces techniques, mais peut-être n'aurais-je pas le choix?

Voilà je cherche une méthode pour alléger mon code.

petite précision qui pourrait aider, dans la colonne Groupe, il ne peut y avoir que 6 valeurs possibles ; de A à F

Merci d'avance.