Probleme d'utilisation d une macro

Sub pdf()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant

On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")

'obtenir le dossier du classeur actif, si sauvegardé
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'remplacer les espaces et les points dans le nom de la feuille
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'créer un nom par défaut pour le fichier de sauvegarde
strFile = Range("I6") & Range("I7") & Range("I8") & ".pdf"
strPathFile = strPath & strFile

'l'utilisation peut entrer le nom et
'sélectionnez le dossier pour le fichier
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
        Dim Ar(2) As String     ' a dimensionner fonction du nombre de feuille
        'Ar(0) a Ar(x) doit contenir le nom des onglets a selectionner
        Ar(0) = Feuil1.Name
        Ar(1) = Feuil2.Name
        Ar(2) = Feuil3.Name
        
        Application.ScreenUpdating = False
        Sheets(Ar).Select
 
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
        Sheets("Feuil1").Select
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

    Application.ScreenUpdating = True
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
    Application.ScreenUpdating = True
End Sub