Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%
Feuil1.Cells.ClearContents
Set classeurDestination = ThisWorkbook
Filtre = "Fichiers Excel 2007-2010(*.xlsx;*.xslm),*.xlsx;*.xslm,"
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
classeurSource.Sheets("Feuil1").Range("a6:j36").Copy classeurDestination.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
classeurSource.Close False
Next
End Sub