Sub Imp_sauf_zero()
Dim Cel As Range, MemImp As String
MemImp = Application.ActivePrinter
' Si aucune imprimante n'a été mémorisée
If Range("K1") = "" Then
' On demande à l'utilisateur d'en chosir une
Application.Dialogs(xlDialogPrinterSetup).Show
' On mémorise le choix de l'imprimante
Range("K1") = Application.ActivePrinter
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$36"
' Pour chaque cellule de J1 à Jx (x=dernière cellule remplie
For Each Cel In Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row)
If Cel <> 0 Then
Range("C1") = Cel
ActiveSheet.PrintOut
End If
Next Cel
' Remettre l'imprimante par défaut
Application.ActivePrinter = MemImp
End Sub