Question débutant VBA

Bonjour,

Je suis débutant sur VBA et je dois écrire un programme.
Ce programme doit mettre, dans un onglet donné, en gras vert foncé toutes les cellules dont le premier caractère est 1. Seulement voilà je voudrais qu'il fasse cela que dans certaines cellules qui ont un fond d'une certaine couleur (en locurence gris clair dont le code est 15395562).

Mon problème est que je n'arrive pas à faire marcher le code que pour ces cellules avec un fond d'une certaine couleur, pouvez-vous m'aider ?

Ps: il y a trois autre couleurs: vert clair lorsque le premier caractère est 2, rouge claire pour 3 et rouge foncé pour 4...

Voici le code:

Sub Exo1()

Dim i, j As Integer

For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
For j = 1 To Cells(3, Columns.Count).End(xlToLeft).Column

If Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 1 Then
Sheets("sheet1").Cells(i, j).Font.Color = -16744448
Sheets("sheet1").Cells(i, j).Font.Bold = True

ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 2 Then
Sheets("sheet1").Cells(i, j).Font.Color = -13382605
Sheets("sheet1").Cells(i, j).Font.Bold = True

ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 3 Then
Sheets("sheet1").Cells(i, j).Font.Color = -16763905
Sheets("sheet1").Cells(i, j).Font.Bold = True

ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 4 Then
Sheets("sheet1").Cells(i, j).Font.Color = -16777012
Sheets("sheet1").Cells(i, j).Font.Bold = True


End If
Next
Next

End Sub

Merci beaucoup !

Nico