Mise en form conditionnelle VBA 5 conditions

je souhaite cr=E9er une mise en forme conditionelle
a plus de trois conditions en VBA
Le code suivant ne fonctionne pas , comme si la=20
fonction MFC refusait d'acc=E9der au objets de la feuille .=20
Pourtant Application.Caller.Address renivoie bien la valeur
de la cellule appelante dans laquele j'ai ins=E9r=E9 la formule
=3DMFC(25) .

Une id=E9e de r=E9solution ou un contournement ?


Function MFC(Valeur As Variant) As Variant
' Cellule =3D Replace(Application.Caller.Address, "$", "")
=20
' Application.Caller.Address d=E9signe l'adresse absolue=20
' ( $A$1 ) de la cellule ou est ins=E9r=E9e la formule =3DMFC(25)
'

If Valeur >=3D 100 Then

Range(Application.Caller.Address).Interior.Color =3D
RGB(100, 100, 100)

ElseIf Valeur >=3D 75 Then
Range(Application.Caller.Address).Interior.Color =3D
RGB(75, 75, 75)
=20
ElseIf Valeur >=3D 50 Then
Range(Application.Caller.Address).Interior.Color =3D
RGB(50, 50, 50)

Else
Range(Application.Caller.Address).Interior.Color =3D
RGB(10, 10, 10)
End If
MFC =3D Valeur
End Function