Sub RecFichier()
Dim Fichier As String, WbK As Workbook, V As Range
'pour eviter de faire des crise
'autre dialog "<<GetOpenFileName>>"
Fichier = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Fichier = "" Then Exit Sub
'si on est pas sorti les cells de la feuille"tri" = les celle de la feuille 1 du classeur ouvert
Set WbK = Workbooks.Open(Fichier)
Set plageàcopier = WbK.Sheets(1).UsedRange ' ca c'est la plage utilisée dans le classeur que tu viens d'ouvrir
'on resize donc A1 a la dimension de la plage et on lui donne la valeur de ta plage
ThisWorkbook.Sheets("TRI").[A1].Resize(plage.Rows.Count, plage.Columns.Count) = plage.Value
WbK.Close
End Sub