fusion de plusieurs feuille identique de plusieurs fichiers

Option Explicit
Const dossier As String = "C:\TonDossier\" [COLOR=Green]' à adapter[/COLOR]
Sub compiler_classeurs()
Dim fn$, wb As Workbook
fn = Dir(dossier & "*.xls")
If IsNull(fn) Then Exit Sub
Set wb = ThisWorkbook
Application.ScreenUpdating = False
    Do While fn <> ""
        With Workbooks.Open(dossier & fn)
            With .Sheets("contrat")
            .[A2].Resize(.[A65536].End(xlUp).Row - 1, 184).Copy
            wb.Sheets("contrat").[A65536].End(xlUp)(2).PasteSpecial xlValues
            End With
            Application.CutCopyMode = False
            .Close False
        End With
    fn = Dir
    Loop
End Sub