Function couleurs(r As Range, Optional choix As Integer = 1) As String
Dim x, y
x = r.Interior.ColorIndex
y = r.Font.ColorIndex
Select Case choix
Case 1
couleurs = x
Case 2
couleurs = y
Case 3
couleurs = "Fond=" & x & " Police=" & y
Case Else
'
End Select
End Function