Sub a()
Dim Zoneprint As Range
On Error Resume Next
Set Zoneprint = Application.InputBox("Choisir la zone d'impression", "Impression", , , , , , 8)
If Err = 0 Then
ActiveSheet.PageSetup.PrintArea = Zoneprint.Address
ActiveSheet.PrintPreview 'affiche l'apercu avant impression
'ActiveSheet.PrintOut ' décommenter cette ligne, pour imprimer
Else
MsgBox "Annulation de l'impression", vbInformation, "Avertissement"
End If
On Error GoTo 0
End Sub