Sub masquer_zeros()
'source: Dave Hawley
Dim l_zero&
Dim i&
Dim c_zero As Range
Application.ScreenUpdating = False
With Range("H1:H" & [H65536].End(xlUp).Row)
l_zero = WorksheetFunction.CountIf(.Cells, 0)
If l_zero > 0 Then
Set c_zero = .Cells(1, 1)
For i = 1 To l_zero
Set c_zero = .Cells.Find(0, c_zero, xlValues, xlWhole, xlRows, xlNext, False)
c_zero.EntireRow.Hidden = True
Next i
End If
End With
Application.ScreenUpdating = True
End Sub