Sub zone_impression()
' zone d'impression & aperçu
Worksheets("Feuil1").Activate
ActiveWorkbook.Names.Add Name:="Zone", RefersToR1C1:= _
"=OFFSET(Feuil1!R2C7:R43C18,,,COUNTIF(Feuil1!R2C7:R43C7,"">""&0)+6)"
ActiveSheet.PageSetup.PrintArea = "Zone"
ActiveWindow.SelectedSheets.PrintPreview
End Sub