Sub Impression()
'
' Impression Macro
' Macro enregistrée le 19/05/2005 par Jepi67
'
Dim Reponse As String
Reponse = InputBox('Imprimer les débiteurs seuls saisir : 1' & _
vbCr & ' ' & _
vbCr & 'Imprimer toute les réservations saisir : 2', 'IMPRESSION LISTE')
If Reponse = '' Then Exit Sub
If Reponse = 1 Then Range('b12:v' & Range('v65536').End(xlUp).Row).Select
PrintArea = Selection
Selection.PrintOut Copies:=1, Collate:=True
If Reponse = 2 Then Range('b12:v' & Range('t65536').End(xlUp).Row).Select
PrintArea = Selection
Selection.PrintOut Copies:=1, Collate:=True
End Sub