Sub ImpressionArchives()
'
' ImpressionZonePleine Macro
' Macro enregistrée le 30/10/2007 par XXXXXX'
ActiveSheet.PageSetup.PrintArea = Range("A1:A" & _
Range("A65536").End(xlUp).Row).Address
End Sub
Private Sub WorkSheet_activate()
Module1.impression
End Sub
Sub impression
ActiveSheet.PageSetup.PrintArea = "imprimer"
End Sub