Function couleurFond(champ As Range)
Application.Volatile
Dim temp()
ReDim temp(1 To champ.Count)
For i = 1 To champ.Count
temp(i) = champ(i).Interior.ColorIndex
Next i
If champ.Rows.Count > 1 Then couleurFond = Application.Transpose(temp) Else couleurFond = temp
End Function