Function CouleurFond(x As Range)
'par mapomme
Application.Volatile
Dim i, j
If x.Count = 1 Then
CouleurFond = x.Interior.Color
Else
ReDim t(1 To x.Rows.Count, 1 To x.Columns.Count)
For i = 1 To x.Rows.Count
For j = 1 To x.Columns.Count
t(i, j) = x(i, j).Interior.ColorIndex
Next j
Next i
CouleurFond = t
End If
End Function