Creazione di un ciclo con le funzioni Evaluate e TROVA

Buongiorno,

ho la necessità di trasformare in un ciclo il codice di esempio seguente, in cui i valori evidenziati in grassetto sono quelli da maggiorare +1 a ogni ciclo. Di seguito l'esempio dei primi due cicli (i=2 e i=3), ma dovrei proseguire fino a i=150.

a = Evaluate("Colori!G2")
b = Evaluate("Colori!H2")
c = Evaluate("Colori!I2")
Range("B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$2;B3);""no"")<>""no"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Color = RGB(a, b, c)
End With

a = Evaluate("Colori!G3")
b = Evaluate("Colori!H3")
c = Evaluate("Colori!I3")
Range("B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$3;B3);""no"")<>""no"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Color = RGB(a, b, c)
End With

Non riesco a trasformare in variabile i valori riportati all'interno delle funzioni Evaluate e TROVA, così da poterli incrementare.

Se qualcuno fosse in grado di aiutarmi ne sarei davvero grato

Grazie mille