Mettre un gras un mot contenu dans une phrase

Bonjour,
je suis nouveau du site.
Je vous pose mon problème:
J'ai une liste d’ingrédients et parmi ceux-ci il y a en certains que je doit mettre en gras. Pour ça j'ai crée une feuille excell avec les liste d’ingrédients et une feuille qui contient le ingrédients qui doivent être mis en gras(allergene).
Avec le code suivant ça fonctionne bien mais je ne suis pas satisfait parce que il faut que j'ecris dans ma formule chaque allergene1....:

Sub bold2()
Allergene1 = "moutarde"
Allergene2 = "celery"
Allergene3 = "lait"

range("A1").Characters(WorksheetFunction.Find(Allergene1, range("A1").Value, 1), Len(Allergene1)).Font.bold = True
range("A1").Characters(WorksheetFunction.Find(Allergene2, range("A1").Value, 1), Len(Allergene2)).Font.bold = True
range("A1").Characters(WorksheetFunction.Find(Allergene3, range("A1").Value, 1), Len(Allergene3)).Font.bold = True


End Sub


Donc j'ai ecrit ça mais ça ne fonctionne pas :

Sub bold3()
Dim i As Integer, fin As Integer

i = 1
fin = Sheets("Allergenes").Cells(2, 1).End(xlDown).Row + 1

For i = 1 To fin

Allerg = Sheets("Allergenes").Cells(i, 1).Value

range("A1").Characters(WorksheetFunction.Find(Allerg, range("A1").Value, 1), Len(Allerg)).Font.bold = True

Next

End Sub

Quelqu'un peut me dire où je me trompe?
Je vous joint le fichier concerné. Merci pour votre aide!
Giuseppe