Function couleur10(Pcoul As Range) As Variant()
Application.Volatile
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
couleur10 = Mat
End Function