Problème avec une boucle de manipulation d'un dossier de classeurs excel

' Placement dans le répertoire des reportings individuels
ClasseurPersonnel = Dir("G:\Missions\Reporting DIR\Reportings\*.xlsx")
While Len(ClasseurPersonnel) > 0
Set CP = Workbooks.Open ("G:\Missions\Reporting DIR\Reportings\" & ClasseurPersonnel)
        DerniereLigne = CP.ActiveSheet.UsedRange.Rows.Count
        CP.ActiveSheet.Range("A7:AB" & DerniereLigne).Copy
        with Workbooks("G:\Missions\Reporting DIR\Détail_Pilotage_CONSO.xlsm")
.activate
        DebutNomFichier = .ActiveSheet.UsedRange.Rows.Count + 1
        .ActiveSheet.Range("A" & .ActiveSheet.UsedRange.Rows.Count + 1).Select
        .ActiveSheet.Paste
        .activesheet.Range("AC" & DebutNomFichier & ":AC" & .ActiveSheet.UsedRange.Rows.Count) = ClasseurPersonnel
        end with
Workbooks(ClasseurPersonnel).Close
        ClasseurPersonnel = Dir
  Wend

ClasseurPersonnel = Dir("G:\Missions\Reporting DIR\Reportings\*.xlsx")
While Len(ClasseurPersonnel) > 0

recupval "G:\Missions\Reporting DIR\Reportings\",ClasseurPersonnel,"Feuil1","A7:AB2500","Feuilletest"

        ClasseurPersonnel = Dir
  Wend





Sub Recupval(Chemin$, NomFichier$, NomFeuille, Plage$, F As Worksheet, Optional Destin$, Optional J&, Optional K&)
  If Destin = "" Then
    With F.Range(Plage)
      .Formula = "='" & Chemin & "[" & NomFichier & "]" & NomFeuille & "'!" & Plage
      .Value = .Value
        End With
  Else
    With F.Range(Destin)
      .Formula = "='" & Chemin & "[" & NomFichier & "]" & NomFeuille & "'!" & Plage
      .Value = .Value
      T = .Value
     .Offset(J, K).Resize(UBound(T), UBound(T, 2)) = T
    End With
  End If
End Sub