Bonjour,
Essaie :
Sub Bouton1_Cliquer()
Dim Wbk As Workbook, Chemin As String
Chemin = "D:\Users\dcola\Documents\Donnees\Daniel\mpfe\VBA05"
Set Wbk = Workbooks.Open(Chemin & "\fichier-a-integrer.xlsx")
Wbk.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
Wbk.Close False
End Sub
Daniel