Function mRGB(rng As Range) As String
'fonction d'origine par Allen Wyatt
Dim C&, R&, G&, B&
C = rng.Interior.Color
R = C Mod 256: G = C \ 256 Mod 256: B = C \ 65536 Mod 256
mRGB = "R=" & R & ", G=" & G & ", B=" & B
End Function
Sub test()
MsgBox mRGB(ActiveCell), vbInformation, "Code couleur RGB"
End Sub