Function CouleurROUGE(couleurR As Range) As Boolean
Application.Volatile
'couleur de fond de la cellule
If couleurR.Interior.ColorIndex = 3 Then CouleurROUGE = True
End Function
Function PoliceROUGE(couleurR As Range) As Boolean
Application.Volatile
'couleur de la police du texte dans une cellule ici 3 =rouge
If couleurR.Font.ColorIndex = 3 Then PoliceROUGE = True
End Function