Sub Imp_sauf_zero()
Application.ActivePrinter = "hp psc 1300 series sur Ne02:"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$31"
For Each cel In Range("J1:J" & [J65000].End(xlUp).Row)
If cel <> 0 Then
[B1] = cel
ActiveSheet.PrintOut
End If
Next cel
End Sub