Macro qui bug

Bonjour,

Ja'i un problème avec cette macro : message d'erreur else sans if? quelqun a une idée? Merci.





Sub Coloration()

Dim choix As String
Dim valeur As String
Dim i As Integer

For i = 4 To 1000
Range("E" & i).Select

valeur = Selection.Offset(0, -2).Value

If valeur Like "*Virement En Votre Faveur*" Then 'e
choix = "Virement En Votre Faveur"
Else: choix = ""
End If


Range("D" & i).Select

valeur = Selection.Offset(0, -1).Value


If valeur Like "*Prelevement*" Then choix = "Prelevement" 'd
ElseIf valeur Like "*Virement Emis*" Then choix = "Virement Emis" 'd
ElseIf valeur Like "*Paiement Par Carte*" Then choix = "Paiement Par Carte" 'd
ElseIf valeur Like "*Effets Domicilies*" Then choix = "Effets Domicilies" 'd

Else: choix = ""
End If


Select Case choix
Case "Virement En Votre Faveur"
Range("E" & i).Interior.ColorIndex = 36
Case "Prelevement"
Range("D" & i).Interior.ColorIndex = 40
Case "Virement Emis"
Range("D" & i).Interior.ColorIndex = 35
Case "Paiement Par Carte"
Range("D" & i).Interior.ColorIndex = 7
Case "Effets Domicilies"
Range("D" & i).Interior.ColorIndex = 37
Case Else
Range("E" & i).Interior.ColorIndex = -4142
Case Else
Range("D" & i).Interior.ColorIndex = -4142

End Select

Next
Range("A1").Select

End Sub