Function CouleurVBA(vCell As Range, vPlage As Range) As Variant
Dim Pos As Byte
Dim PosAddress As String
Pos = Application.Match(vCell, vPlage, 0)
PosAddress = Application.Index(vPlage, 1, Pos).Address
CouleurVBA = Range(PosAddress).Interior.ColorIndex
End Function