Bonjour Kewell
Tiens, je ne vais pas te 'gronder' pour ce post répétitif ... si tu ne recommences pas !
La couleur de police sera identique dans les deux cellules si les contenus sont .... identiques
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 4) = Cells(1, 1) Then
Cells(1, 4).Font.ColorIndex = Cells(1, 1).Font.ColorIndex
End If
End Sub
Si tu veux du Rouge absolument indexColor est = à 3
Bonne nuit
@+GD