Sub masquer()
Dim J As Long
Dim Plage As Range
Application.ScreenUpdating = False
Set Plage = Range("H1", Range("H65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
If IsEmpty(Plage.Cells(J)) Then
Plage.Rows(J).Hidden = True
End If
Next J
Application.ScreenUpdating = true
End Sub