Copier onglet de plusieurs fichiers d'un classeur Excel 2003

Option Explicit
'Sources :
    'http://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers
Sub MichelEliane()
Dim Chemin As String, Fichier As String, Feuille As String, MotCommun As String
Dim Cpt As Integer, DrLig As Long
Dim ClasseurRecap As Workbook, Wsh As Worksheet, FeuilRecap As Worksheet
Dim Temps

Temps = Timer
'ClasseurRecap = notre classeur de récap
Set ClasseurRecap = ThisWorkbook

'---------------------------- A ADAPTER :--------------------------------------
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Set Wsh = ClasseurRecap.Sheets(2) 'Sheets(2) est une feuille du classeur
                              'Recap qui doit être vide!
                              'au besoin changer le num de cette feuille
Set FeuilRecap = ClasseurRecap.Sheets(1) 'Sheets(1) est la feuille du classeur de récap
                                     'dans laquelle tu souhaites regrouper tes données
Chemin = "C:\Documents and Settings\Utilisateur\Bureau\Nouveau dossier\" 'Chemin d'accès au répertoire
Feuille = "Feuil2" 'nom des feuilles des différents classeurs à  regrouper
MotCommun = "Classe" 'classeurs commencent tous par un mot identique mettre ici ce mot
'--------------------------- FIN ADAPTATIONS ---------------------------------
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

'Initialisation du compteur de fichiers traités
Cpt = 0
'Boucle sur tous les fichiers xls du répertoire.
Fichier = Dir(Chemin & "*.xls")
Do While Len(Fichier) > 0
    If Left(Fichier, Len(MotCommun)) = MotCommun Then
        'Incrémentation du compteur de fichiers
        Cpt = Cpt + 1
        ClasseurRecap.Names.Add "plage", RefersTo:="='" & Chemin & "[" & Fichier & "]" & Feuille & "'!$A$11:$H$55"
        With FeuilRecap
            DrLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
        End With
        With Wsh
            .Range("A11:H55") = "=plage"
            .Range("A11:H55").Copy
            FeuilRecap.Range("A" & DrLig).PasteSpecial xlPasteValues
            .Range("A11:H55").Clear
        End With
    End If
    Fichier = Dir()
Loop
MsgBox Cpt & " fichiers ont été traités en : " & Timer - Temps & " secondes."
End Sub