Dim Couleur As Long, Rouge As Integer, Vert As Integer, Bleu As Integer
Couleur = ActiveCell.Font.Color
Rouge = Int(Couleur Mod 256)
Vert = Int((Couleur Mod 65536) / 256)
Bleu = Int(Couleur / 65536)
trouvé ! Il faut d'abord convertir en code hexadécimal :
Dim CouleurHexa, r, g, b
CouleurHexa = Hex(ActiveCell.Font.Color)