Function couleurfond(c)
If c.Interior.ColorIndex = xlNone Then
couleurfond = "sans"
Else
couleurfond = c.Interior.ColorIndex
End If
End Function
Function couleurPolice(c)
If c.Font.ColorIndex = xlNone Then
couleurPolice = "sans"
Else
couleurPolice = c.Font.ColorIndex
End If
End Function