Sub Importer()
Dim w As Worksheet, fichier$
Set w = Feuil1 'CodeName
fichier = ThisWorkbook.Path & "\Export.xlsx"
If Dir(fichier) = "" Then MsgBox "Le fichier Export n'existe pas !", 48: Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est ouvert
w.Cells.Clear 'RAZ
With Workbooks.Open(fichier)
.Sheets(1).UsedRange.Copy w.[A1]
.Close False
End With
w.Activate 'facultatif
End Sub