colorier la case souhaité

voila j'ai ça

For Each cellule In Worksheets(2).Range('A3:A23')
'on affiche les valeur superieur à 150000
'dans la premiere cellule on affiche la premiere valeur superieur a 150000
'avec l'utilisation du tableau
If cellule.Value = '' Then
If q = True Then
cellule.Value = 'sup 150000'
q = False
Else
If j <> p Then
cellule.Value = h(j)
'on increment la variable permettant de parcourir le tableau
j = j + 1
End If
End If
End If
Next cellule
q = True

et je voudrait colorier la cellule qui va recevoir comme valeur sup 150000