Remplir un fichier Excel à partir d'autres fichiers Excels

'-------------initialisations
     Application.ScreenUpdating = False
     With Sheets("Data")
          Ligfin = .Columns("A").Find("*", , , , , xlPrevious).Row
          'nettoyage ancien reports
          With .Range("A3:AH" & Ligfin)
               .ClearContents
               .Borders.LineStyle = xlNone
          End With
     End With
     Chemin = ThisWorkbook.Path & "\" & ss_rep

'restitution et compilation
           With Sheets("data")
               Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
               .Cells(Ligvide, "A").CopyFromRecordset Requete
               Ligfin = .Columns("A").Find("*", , , , , xlPrevious).Row
               .Range(.Cells(Ligvide, "A"), .Cells(Ligfin, "AH")).Borders.Weight = xlThin
               .Range(.Cells(Ligvide, "M"), Cells(Ligfin, "AC")).NumberFormat = "[$-409]mmmm-yy;@"
          End With

Fichier = Dir("June-13"  & "*.xlsx")