Macro Excel Mise en forme conditionnelle

Bonjour,

J'essaye de créer une macro (cela doit être une macro ou une fonction) qui change la couleur de la cellule selon la valeur

Si la cellule contient la valeur "Vert" le fond doit passer en vert, idem pour orange et rouge
J'aimerais passer la valuer dans une variable (car les couleurs peuvent changer selon l'utilisateur et je veux laisser la même macro)

Ma variable VP_CCond est chargée avec "Vert" mais une fois la macro exécutée je retouve dans valeur conditionnelle =Vert au lieu d'avoir ="Vert" (il manque les guillemets ;( )
Comment puis je faire pour "protéger" le caractère guillements?
Merci de votre aide

Voici la macro


Sub FunctionsEtatPrec()
Selection.FormatConditions.Delete
VP_CCond = ("Vert")
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=" & VP_CCond
Selection.FormatConditions(1).Interior.ColorIndex = 4
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Orange"""
Selection.FormatConditions(2).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Rouge"""
Selection.FormatConditions(3).Interior.ColorIndex = 3
End Sub



Cordialmenet
GG