Mefc si police de cellule est blanc mettre police cellule voisine en bleu etc...

Option Explicit
Sub MFC_selon_couleur_police()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "e").End(xlUp).Row To 5 Step -1
        If Range("e" & i).Font.ColorIndex = 2 Then Range("e" & i).Offset(, -1).Font.ColorIndex = 1
    Next i
    Application.ScreenUpdating = True
End Sub

Sub MFC_selon_couleur_police_V2()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "d").End(xlUp).Row To 5 Step -1
        If Range("d" & i).Font.Color = 16777215 Then Range("d" & i).Offset(, 1).Font.Color = 12611584
    Next i
    Application.ScreenUpdating = True
End Sub