Sub recup_données()
nf = Application.GetOpenFilename("fichiers xls,*.xls*")
If Not nf = False Then
Workbooks.Open Filename:=nf
A = ActiveWorkbook.Name
derligne = Workbooks(A).Sheets(1).Range("A65000").End(xlUp).Row - 1
Workbooks(A).Sheets(1).Range("A5:m" & derligne).Copy ThisWorkbook.Sheets(1).Range("a65000").End(xlUp).Offset(1, 0)
Workbooks(A).Close
End If
End Sub