Coloration de Cellule sous condition

Bonjour,

J'aimerais colorer ma cellule H21, en fonction de 2 conditions. Mon code me colore uniquement les caractères inscris en H21 et pas le fond de la cellule...


Sub XXXX

Dim Val2

If val2 < Cells(21, 8) Then
Range("H21").Font.Color = RGB(255, 0, 0)
Else
Range("H21").Font.Color = RGB(0, 255, 0)
End If

En sub

Merci beaucoup !