Bonsoir,
En passant par le système hexadécimal :
Sub COLOR()
Dim RGB_HEXA As String
Dim R As Long, G As Long, B As Long
RGB_HEXA = Right("000000" & Hex(ActiveCell.DisplayFormat.Interior.COLOR), 6)
B = "&H" & Mid(RGB_HEXA, 1, 2)
G = "&H" & Mid(RGB_HEXA, 3, 2)
R = "&H" & Mid(RGB_HEXA, 5, 2)
MsgBox "R: " & R & ", G: " & G & ", B: " & B
End Sub
Bonne soirée.