coloriage d'une ligne

[Reeaz]

Bonjour,

j'ai crée une macro qui est la suivante:

Sub Coloriage()

i = 2
Do While Cells(i, 2) <> ""
If Left(Cells(i, 2), 4) = Somm Then
Cells(i, 2).Select
Selection.EntireRow.Select
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
Else
i = i + 1
End If
Loop

End Sub


Je voudrais colorier chaque ligne dont le début commence par les 4 lettres "somm" en bleu.
Je ne sais pas ou est l'erreur?
Si qqun pouvait me dépanner....

Merci

 

[Roland]

Salut Reaz

Il faut mettre somm entre guillemets
Et tu risque d'avoir des pb de majuscule minuscule

If lcase(Left(Cells(i, 2), 4)) = "somm" Then

A++