XL 2010 imprimer sous format XLS ou PDF selon le choix

[fattah_5791]

Salut tout le monde,

j ai bien une petite macro qui m'imprime une zone bien determinée mais en format pdf. j aimerais bien modifier cette macro pour que le systeme m'affiche d'imprimer par deux possibilités en choisissant XLS ou PDF.
Merci à vous

Macro:
dim vbPrienter

vbPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("indicateurs").Visible = xlSheetVisible
If vbPrinter = True Then
Sheets("indicateurs").Activate
Sheets("indicateurs").Range(Cells(1, 33), Cells(37, 49)).Select
Selection.PrintOut Copies:=1
Else: GoTo fin
End If