Sub Bouton1_Cliquer()
Dim chemin As String 'nom de variable récupérant le chemin du fichier source
chemin = Application.GetOpenFilename
Workbooks("Nouveau.xlsm").Worksheets("Feuil1").Cells.ClearContents
Workbooks.Open Filename:=chemin
Workbooks(chemin).Worksheets("(All)").Cells.Copy _
Workbooks("Nouveau.xlsm").Worksheets("Feuil1").Range("A1")
Workbooks(chemin).Close False
End Sub