Sub colorie_1_lig_sur_2()
'MJ le 01/10/2008 pour [URL]https://www.excel-downloads.com/threads/macro-afin-de-colorier-selon-un-critere-des-lignes.104577/[/URL]
adresse = ActiveCell.Address
Cells(1, 1).Select
Cells.Select
Selection.Interior.ColorIndex = 2
indice = 0
compteur = 0
ActiveCell.SpecialCells(xlLastCell).Select
nl = ActiveCell.Rows.Row
Range("A1").Select
For n = 1 To nl
If Cells(n, 1).RowHeight = 0 Then aa = 1 Else indice = indice + 1: compteur = compteur + 1: If indice > 1 Then Rows(n & ":" & n).Interior.ColorIndex = 6: If indice = 2 Then indice = 0
Next
Cells(1, 5).Value = compteur - 1
Application.Goto Reference:=Range(adresse)
End Sub