Function Couleur(plage As Range)
'plage doit être formée de cellules adjacentes
Dim ncol%, i&, j%
Application.Volatile
ncol = plage.Columns.Count
ReDim a(1 To plage.Rows.Count, 1 To ncol)
For i = 1 To plage.Rows.Count
For j = 1 To ncol
a(i, j) = plage(i, j).Interior.ColorIndex
Next j, i
Couleur = a 'matrice
End Function