Sub recup_donnes()
Dim I As Integer
Workbooks.Open Filename:="C:\Users\Adrien\OneDrive Entreprise 1\Travail\T9.xls" 'Ouvre le fichier Excel source
'Par exemple, la feuille s'appelle report_3
I = 3
Workbooks("T9.xls").Worksheets("report_" & I).Cells.Copy _
Workbooks("ComparatifEmission.xlsm").Worksheets("T9").Range("A1") 'Copie-colle le fichier
Workbooks("T9.xls").Close False 'Referme le fichier source
End Sub