aide pour formule vba

bonsoir,

voici le code que j'ai récupére sur le forum, j'essaye de l'appliquer a mon application mais il ya un erreur.

statut= combobox
Private Sub statut_Change()
If Val(statut.Text) = "accepté" Then
statut.BackColor = vbGreen
If Val(statut.Text) = "en traitement" Then
statut.BackColor = vbYellow
Else
statut.BackColor = vbRed
End If
End Sub

merci de votre soutien et votre disponibilité
bonne soirée