Function Couleur(Pcoul As Range) As Variant()
Dim Mat(), L&, C&
ReDim Mat(1 To Pcoul.Rows.Count, 1 To Pcoul.Columns.Count)
For L = 1 To UBound(Mat, 1): For C = 1 To UBound(Mat, 2)
Mat(L, C) = Pcoul(L, C).Interior.ColorIndex
Next C, L
Couleur = Mat
End Function