Sub Masqueligne()
Application.ScreenUpdating = False
'Dernière ligne renseignée de la colonne A
Lg = Range("A65536").End(xlUp).Row
'De la ligne 6 à la dernière ligne renseignée
For i = 6 To Lg
'Si la cellule Ai = 0 cellule masquée
If Cells(i, 1) = 0 Then Rows(i).Hidden = True
'Ligne suivante
Next
Application.ScreenUpdating = True
End Sub