XL 2010 Couleur de cellule en fonction de

Sub coloration()
LastLigne = Range("E" & Rows.Count).End(xlUp).Row
LastColonne = Range("E2").End(xlToRight).Column

'mise à jour de la couleur de police selon la colonne D
For i = 3 To LastLigne
    CouleurPolice = Range("D" & i).Font.ColorIndex
    Range("E" & i).Resize(1, LastColonne - 4).Interior.ColorIndex = CouleurPolice
Next i

'mise à jour de la couleur de cellule (gris) selon le contenu de la ligne 2
For j = 5 To LastColonne
'    MsgBox Cells(2, i).Font.ColorIndex
    If Cells(2, j).Font.ColorIndex = 1 Then
        Cells(3, j).Resize(LastLigne - 2, 1).Interior.ColorIndex = 16 'gris
    End If
    'mise à jour en rouge des cellules vides  et police "blanc" en ligne 2
    If Cells(2, j).Font.ColorIndex = 2 Then 'couleur blanc
        For k = 3 To LastLigne
            If Cells(k, j) = "" Then Cells(k, j).Interior.ColorIndex = 3 'couleur Rouge
        Next k
    End If
       
Next j

End Sub