changer texte en fonction couleur cellule

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

Function couleurFondTexte()
  Application.Volatile
  coul = Range(Application.Caller.Address).Interior.Color
  couleurFondTexte = ""
  For i = 1 To Range("coulref").Count
    If coul = couleurfond(Range("coulref")(i)) Then
      couleurFondTexte = Range("coulref")(i)
    End If
  Next i
End Function

Function couleurfond(cel)
  couleurfond = cel.Interior.Color
End Function