Function info_Couleur(laPlage As Range)
'(laPlage est supposée être une cellule unique ou une partie de colonne.)
Dim i&, r As Variant, Cel As Range
Application.Volatile
If laPlage.Cells.Count = 1 Then
r = IIf(laPlage.Interior.ColorIndex < 0, "incolore", laPlage.Interior.Color)
Else
r = laPlage
For Each Cel In laPlage
i = i + 1
r(i, 1) = IIf(Cel.Interior.ColorIndex < 0, "incolore", Cel.Interior.Color)
Next
End If
info_Couleur = r
End Function