écrire en couleur depuis une fonction

bonjour à tous,
la fonction suivante marche bien jusqu'au moment ou je rajoute les codes couleur pour que les phrases s'écrivent en couleur.

Function prs(x)
Select Case x
Case "R1"
prs = "Explosif "

c.Interior.ColorIndex = 3

Case "S2"
prs = "Risque d'explosion"

c.Interior.ColorIndex = 10

End Select
End Function
Si vous avez des idées je suis preneuse.
Merci d'avance