Excel VBA - Mettre des mots en rouge dans des cellules

Bonjour à tous,
Je suis embété car je ne sais pas vraiment programmer des macros et j'ai une tache qui est répétitive et qui je suis sur pourrait être automatisée.
Pour faire simple : Je travaille sur un glossaire. J'ai deux colonnes A et B, dans la colonne A j'ai des mots et dans la colonne B j'ai leur définition. J'aimerais pouvoir identifier les mots dans les cellules de la colonnes B qui ont déja une définition dans mon glossaire (colonne A).
Petit exemple concret :
Colonne A Colonne B
Arbre Plante qui contient des branches et des feuilles...
Feuille Partie d'une arbre. Se trouvent au bout des branches....
Branche Fait partie d'une arbre. Au bout se trouve des feuilles....
Dans ce cas la macro devrait m'identifier les mots arbre, branche et feuille dans chacune des définitions de la colonne B et mettre ces mots en rouge.
Est-ce possible de programmer ca ?
Merci pour votre aide,
Je vous souhaite une bonne journée !

Bonjour,

Mets la macro suivante dans un module standard. Il y a juste les "s" qui sont pas coloriés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test() Dim C As Range, X As Range, ResAdr As String, Ctr as Integer For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp)) Set X = [B:B].Find(C.Value, , , xlPart) If Not X Is Nothing Then ResAdr = X.Address Do ctr = 1 Do ctr = InStr(ctr, LCase(X.Value), LCase(C.Value)) If ctr = 0 Then Exit Do X.Characters(ctr, Len(C.Value)).Font.ColorIndex = 3 ctr = ctr + Len(C.Value) Loop Set X = [B:B].FindNext(X) Loop While X.Address <> ResAdr End If Next C End Sub

---