Sub test()
Dim rep$, nom1$, ClasseurRegional$, DebutNomFichier
nom1 = ActiveWorkbook.Name
rep = "E:\Laboratoire commun\Gestion des moules\Blocs\TCD_Year\"
ClasseurRegional = Dir(rep & "*.xlsx")
While Len(ClasseurRegional) > 0
Workbooks.Open rep & ClasseurRegional
Range("A3:O" & [A65536].End(xlUp).Row).Copy
Workbooks(nom1).Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste 'coller sur le fichier les données
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRegional
Application.DisplayAlerts = False
Workbooks(ClasseurRegional).Close
ClasseurRegional = Dir 'passer au suivant
Wend
End Sub