Option Explicit
Sub Ligne_masquer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "h").End(xlUp).Row To 5 Step -1
If Range("h" & i) <> "" Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
fin = Range("E" & Rows.Count).End(xlUp).Row
Range("E5:H" & fin).Columns(4).SpecialCells(xlTextValues).EntireRow.Hidden = True
Sub test()
fin = Range("E" & Rows.Count).End(xlUp).Row
Range("H5:H" & fin).SpecialCells(xlTextValues).EntireRow.Hidden = True
End Sub