Colorer des cellules a partir d'1 combo box

Bonjour,

J'aimerais savoir comment on fait pour colorer des cellules a partir de la selection d'un item dans une combo box sur Excel. J'ai essaye de faire une boucle if ... Then que j'ai enregistre dans le feuille de code correspondant a ma feuille de travail mais VBA me dit que j'ai une erreur de syntaxe, j'ai alors essaye la mise en forme conditionnelle mais rien ne se passe.

Je vous remercie d'avance pour votre aide.

Voici mon code :

Private Sub cbxResult_Change(ByVal Target As Range)

'Change the colour of the row according to the result of the Bid

If cbxResult = "Won" Then
Range(ActiveCell.Offset(0, -10), ActiveCell.Offset(0, 4)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

ElseIf cbxResult = "Submitted" Then
Range(ActiveCell.Offset(0, -10), ActiveCell(0, 4)).Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

ElseIf cbxResult.Value = Array("Withdrawn", "No Bid", "Lost", "Dead", "ITT Received") Then
Range(ActiveCell.Offset(0, -10), ActiveCell(0, 4)).Select
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With

ElseIf cbxResult = Array("In Progress", "Eol submitted", "Adv Warning") Then
Range(ActiveCell.Offset(0, -10), ActiveCell(0, 4)).Select
With Selection.Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
End If
End Sub

Marine