Récupérer des données sur plusieurs classeurs

Bonjour,

Je cherche à récupérer les données de plusieurs classeurs regroupé dans un fichier afin de les mettre sur un tableau.

J'ai réussi à obtenir ce code grâce à mes recherches sur les forums, mais il ne fonctionne pas parfaitement.

Sub Recap_Eval_Info()
' Recupérer les données Eval_info

Dim wb As Workbook, wb2 As Workbook
Dim sPath As String, sFilename As String
Dim L As Long
Set wb = ThisWorkbook

Application.ScreenUpdating = False
L = Range("A1").End(xlDown).Row + 1 'dernière ligne de la colonne à non vide +1
sPath = Sheets("Paramètres").Range("B5").Value       'Répertoire
sFilename = Dir(sPath & "*.xls*")        'ouvre tous les fichiers .xls*

Do While Len(sFilename) > 0
Set wb2 = Workbooks.Open(sPath & sFilename)           'Ouvre le fichier
'
' Code pour récupérer les informations
wb.Sheets("Recup_Eval_Info").Range("A" & L) = wb2.Sheets("Eval_Info").Range("B10").Value



    wb2.Close False   'Fermer le fichier
    sFilename = Dir

Loop
Application.ScreenUpdating = True

End Sub

Le code ne récupéré et inscrit sur le tableau que la donnée de 1 seul classeur, le but est qu'il inscrive à la suite la donnée présente dans tous les classeurs du dossier.

D'avance je vous remercie pour votre aide!