Colorier des lignes

Salut,
Essaye ça :

Sub Colorier_Ligne()
For i = 2 To 5000
If Cells(i, 31) < 0 Then Range(Cells(i, 1), Cells(i, 32)).Interior.ColorIndex = 3
Next i
End Sub

Je te joins un fichier exemple.

Bonjour, Sylvain

Il est possible de le faire sans VBA. Il faut utliser le format conditionnel des cellules

1) Selectionne la plage A2:AF5000, astuce : pour plus de faciliter, clique sur le menu Edition/Atteindre, dans le champ du bas, tu tapes A2:AF5000 et tu valide, excel à sélectionner la plage à ta place.

2) Clique sur le menu Format/Mise en forme conditionnelle, dans la boîte de dialogue, change la valeur de la cellule par la formule est puis dans le champ juste à côté,indique cette formule =$AE2<0, puis clique sur format, donne les caractéristiques voulues. Valide deux fois.

Bonne journée
@+Jean-Marie

Merci beaucoup et surtout merci pour la rapidité!

Bonne journée

Merci beaucoup et bonne journée a toi aussi.