XL 2013 Imprimer une sélection en pdf puis revenir sur mon imprimante par défaut [Résolu]

Sub ZoneImpressionEnPdfMacroChoix()
Dim ImprActuelle As String, ImprNouv As String, NomFichier As String, ws As Worksheet, Imprimer

Set ws = Worksheets("Feuille A") 'la feuille
ws.PageSetup.PrintArea = "$B$2:$AA$52" ' les cellules

Imprimer = MsgBox("Voulez-vous imprimer (répondre oui) ou créer un pdf (répondre non) ?", vbYesNo)
    If Imprimer = vbYes Then
        'Sub IMPRIMER_Papier() 'placer ici le code qui va bien : regarde le message #3 tu as pratiquement tout ce qu'il faut dedans

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        'End Sub

Else
  'fichier pdf placé dans au même endroit que ce fichier Excel
  NomFichier = Range("AB2")
  'NomFichier = Range("AB2").Value
  
  'copie en pdf de la zone d'impression (IgnorePrintAreas:=False)
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      NomFichier, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
End If
 
End Sub