Erreur importation des données

Bonjour,

Ce code me permet d'importer des données dans un fichier excel d'une autre feuille excel si dans le cas où la rangée AQ = XX ou YY

Option Explicit
Option Base 1
'--------
Sub Importdatav2()
Dim Source As Workbook, Dercol As Integer
Dim Nbre As Integer, Tablo, Cptr As Integer, derlig As Integer, Lig As Integer, Col As Integer
Dim FichiersAOuvrir, I As Integer

  Application.ScreenUpdating = False



  FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
  If IsArray(FichiersAOuvrir) Then
    For I = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
      Set Source = Application.Workbooks.Open(FichiersAOuvrir(I), , True)
      With Sheets("Workload - Charge de travail")
       Dercol = Cells(2, Columns.Count).End(xlToLeft).Column
        Nbre = Application.CountIf(.Columns("AQ"), "YY", '' XX'')
        ReDim Tablo(Nbre, Dercol)
        Lig = 1
        For Cptr = 1 To Nbre
          Lig = .Columns("AQ").Find("XX",'' YY'' .Cells(Lig, "AQ"), xlValues).Row
          For Col = 1 To Dercol
    
            Tablo(Cptr, Col) = .Cells(Lig, Col).FormulaLocal
          Next Col
        Next Cptr
      End With
      Source.Close False
      
 With ThisWorkbook.Sheets("Sheet1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1 'premiere cellules vide colonne A
         .Range("A" & derlig).Resize(Cptr, Dercol) = Tablo
        '.Activate
     End With

    Next I
  Else
    MsgBox "Aucun choix"
  End If
End Sub

J'ai une erreur ici

.Range("A" & derlig).Resize(Cptr, Dercol) = Tablo

voici mon message d'erreur :
Method 'Resize' of object 'Range' failed


aussi j'aimerais bien savoir si c'est possible de selectionner plusieurs fichiers excel à la fois au moment de l'imporation ?

Merci