Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. B6:E14) ", _
Title:="Sélection de zone ", Default:="$B$6", Type:=8)
Plage.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False