Option Explicit
Dim x%
Sub masquerligne()
Application.ScreenUpdating = False
For x = 4 To 13
If Sheets("Feuil1").Cells(x, 1) = "" Then
Rows(x).EntireRow.Hidden = True
Else
Rows(x).EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub