Sub test_1()
Dim Name As Workbook, Name2 As Workbook, a, b&
Set Name = ThisWorkbook
ChDir "C:\Temp\"
a = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls", , "Select XLS", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Set Name2 = ActiveWorkbook
ActiveSheet.UsedRange.Copy Name.Sheets(1).Range("A65536").End(xlUp)(2)
Name2.Close False
End Sub