Sub MasquerLigne0()
Dim Lig As Long, PremLig As Long, DerLig As Long
' Avec la feuille de devis
With Sheets("Devis")
' Définir ICI le numéro de la 1ère ligne à analyser
PremLig = 10
' Récupère la dernière ligne : ATTENTION peut être faux
DerLig = .Range("E" & Rows.Count).End(xlUp).Row
' Calculer la dernière ligne selon le nombre de ligne du total devis
DerLig = DerLig - 5
' Pour chaque ligne
For Lig = PremLig To DerLig
' Si la quantité = 0
If .Range("C" & Lig).Value = 0 Then
' On masque la ligne
.Range("A" & Lig).EntireRow.Hidden = True
End If
Next Lig
End With
End Sub