XL 2016 macro copier coller de plusieurs feuilles excel

Sub test()
    Dim myDir As String, fn As String
    Application.ScreenUpdating = False
    myDir = "C:\Travail\Blabla\Toto"
    fn = Dir(myDir & "\*.xlsx*")
    Do While fn <> ""
        With Workbooks.Open(myDir & "\" & fn).Sheets(1)
            .Cells(1).CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
            Application.CutCopyMode = False
            .Parent.Close False
        End With
        fn = Dir
    Loop
    Application.ScreenUpdating = True
End Sub