Sub MasquerLesLignesVides()
Dim NbLignes As Long, i As Long, Debut
Application.ScreenUpdating = False
NbLignes = Range("A65535").End(xlUp).Row
For i = NbLignes To 3 Step -1
If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty _
Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub