Bonjour,
ça n'a pas l'air d'avancer...
Un petit coup de pouce :
S'il n'y a pas de MFC, tu peux utiliser une fonction pour récupérer l'indice de la couleur de la police
Code:
Function COULEURtxt(Optional Cel As Range)
Application.Volatile
If Cel Is Nothing Then Set Cel = Application.Caller
COULEURtxt = Cel.Font.ColorIndex
End Function