Fonction modifiant valeur d'une autre cellule

Bonjour à tous,

J'ai créé une fonction qui me retourne une valeur, en fonction de valeurs d'autres cellules. Jusque là, pas de souci. Je voudrais ensuite modifier directement le contenu et la couleur de fond d'une autre cellule, selon le résultat obtenu, sans créer une nouvelle fonction.
Je n'ai pas trouvé de réponse à cette question dans les forums.
Voici mon code, et le fichier est en pièce jointe.
D'avance, merci pour vos idées ou solutions.

Tony


Public Function Statut_Anim(Etat01, Etat02, Etat03 As String)

With ActiveSheet

If Etat02 = "Diapo" Then
resultat = "D": couleur = 17
ElseIf Etat01 = "En attente" Then
resultat = "A": couleur = 39
ElseIf Etat01 = "Opérationnel" Then
resultat = "OPS": couleur = 4
ElseIf Etat01 = "Changement Planifié" Then
resultat = "CP": couleur = 46
Else
resultat = "P": couleur = 59
End If

'.Range(Etat03).Value = resultat
'.Range(Etat03).Interior.ColorIndex = couleur

Statut_Anim = resultat

End With


End Function


http://www.cjoint.com/c/FAnoVDVl2iV