' Toutes les cellules (lignes entières) non cachées
Cells.EntireRow.Hidden = False
'Pour i de 32 à 14 toutes les 2, c'est à dire que l'on recule de 32 à 14 (32 to 14) de 2 en 2 (step -2)
For i = 32 To 14 Step -2
'Si la somme des cellules de F à G ligne i = 0 alors on cache les lignes de i et i +1
'Lorsque l'on cache ou supprime des lignes il faut toujours le faire de la fin vers le début, pour ne pas avoir d'erreur dans le N° de ligne.
If WorksheetFunction.Sum(Range(Cells(i, 6), Cells(i, 8))) = 0 Then _
Rows(i & ":" & i + 1).Hidden = True
Next