Bonjour,
voici un exemple à adapter pour une boucle,
nm = Array("NOM 1", "NOM 2", "NOM 3", "NOM 4", "NOM 5")
cl = Array(RGB(255, 0, 0), RGB(100, 100, 100), RGB(0, 255, 0), RGB(0, 0, 255), RGB(200, 200, 200))
vl = Range("A1").Value
k = Application.Match(vl, nm, 0)
Range("A1").Interior.Color = cl(k)