Function couleurFondTexte()
Application.Volatile
Select Case Range(Application.Caller.Address).Interior.ColorIndex
Case 3
couleurFondTexte = "Rouge"
Case 4
couleurFondTexte = "Vert"
Case 6
couleurFondTexte = "Jaune"
Case Else
couleurFondTexte = "JeSaisPas"
End Select
End Function