Sub Selection_Zone()
Dim plage As Range
'L'argument "Type" de cette méthode est ici égale à 8
'Cela signifie que le type de données saisi dans l'inputbox sera une plage de cellules
On Error GoTo GestionErreur
Set plage = Application.InputBox(Prompt:="Sélectionner la zone d'impression", Type:=8)
ActiveSheet.PageSetup.PrintArea = plage.Address
ActiveSheet.PrintPreview
GestionErreur:
End Sub