Function VColorHex(ByVal Txt As String) As Long
If Left$(Txt, 1) = "#" Then Txt = Mid$(Txt, 6, 2) & Mid$(Txt, 4, 2) & Mid$(Txt, 2, 2)
If Left$(Txt, 2) <> "&H" Then Txt = "&H" & Txt
VColorHex = Val(Txt & "&")
ThisWorkbook.Consigne Application.Caller.EntireRow.Columns(1), VColorHex
End Function
Function VColorRGB(ByVal Txt As String) As Long
Dim TSpl() As String
TSpl = Split(Txt, "-")
VColorRGB = RGB(TSpl(0), TSpl(1), TSpl(2))
ThisWorkbook.Consigne Application.Caller.EntireRow.Columns(1), VColorRGB
End Function