Sub test()
Dim C As Range, Min As Range, Plage As Range, X As Range
For Each C In Range("A5", Cells(Rows.Count, 1).End(xlUp)).Offset(, 4)
Set Plage = Range(C.Offset(, 1), Cells(C.Row, Columns.Count).End(xlToLeft))
For Each X In Plage
If X.Value = C.Value Then
C.Font.Color = X.Font.Color
Exit For
End If
Next X
Next C
End Sub