Code couleur du texte de la cellule

Bonjour à toutes et tous,

Je cherche a créer une fonction pour connaitre le code couleur du texte d'une cellule.

J'ai trouvé en ligne une fonction qui me renvois l'information pour la couleur de remplissage de la cellule mais que je n'arrive pas a adapter pour avoir la même chose mais pour la couleur du texte.

En attendant votre aide

Merci

Cordialement

Hugues

Function CodeCouleur(CelluleCouleur As Range) As Long
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
CodeCouleur = CelluleCouleur.Interior.ColorIndex
End Function

Bonjour

CelluleCouleur.Font.ColorIndex

Bonjour 78chris

C'est parfait et tout simple

Merci beaucoup

Cordialement

Hugues