Probléme dans une boucle

Bonjour le forum,

J'ai un souci dans une boucle et je ne trouve pas l'erreur.
Sub mise_en_forme()
Dim i as integer
For i = 3 To 1500
If Range('a' & i).Value = 'Total de la liste' Then
Rows('i:i').Select
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
Next i
End Sub

Merci d'avance pour le coup de main
Hugues