Bonjour et bienvenue
Place des filtres sur tes titres.
En supposant que tes titres sont en A1:B1 et les quantités en colonne B (donc 2)
Sub imprime()
[A1:B1000].AutoFilter Field:=2, Criteria1:=">0"
ActiveSheet.PrintOut
ActiveSheet.ShowAllData
End Sub
Amicalement
Nad