Classeur = Application.GetOpenFilename("Classeurs Excel,*.xlsx")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
range("A1:Z500").select
Selection.Copy
ActiveWorkbook.Close
Windows("le nom de ton fichier où tu souhaite importer").Activate
sheets("le nom de la feuille où tu souhaite importer")
Range("A1").Select
ActiveSheet.Paste