Sub Couleurs()
Dim TSe As TableStyle, CoulLong&, CoulIdx%, R&, V&, B&
Set TSe = ActiveSheet.ListObjects(1).TableStyle
CoulLong = TSe.TableStyleElements(xlHeaderRow).Interior.Color
Range("m1") = CoulLong
Range("n1").Interior.Color = CoulLong
Range("n2").Interior.ColorIndex = -4142
R = Int(CoulLong Mod 256)
V = Int((CoulLong Mod 65536) / 256)
B = Int(CoulLong / 65536)
Range("m4") = R
Range("m5") = V
Range("m6") = B
Range("m7") = "&H" & Right$("00000" & Hex(CoulLong), 6) & "&"
End Sub