Sub ConcaFichierJJ()
Dim Chemin As String, Fichier As String, derlg As Long
With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: End With
Chemin = ThisWorkbook.Path & "\TDB LEADER\" ' ***A adapter
Sheets("Synthèse").Range("a4:ae" & Rows.Count).Clear
Fichier = Dir(Chemin)
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
derlg = ThisWorkbook.Sheets("Synthèse").Cells(Rows.Count, "c").End(xlUp).Row + 1
With Sheets("Sheet1")
.Range("a4:ae" & .Cells(.Rows.Count, "c").End(xlUp).Row).Copy ThisWorkbook.Sheets("Synthèse").Range("a" & derlg)
End With
ActiveWorkbook.Close False
Fichier = Dir
Loop
With Application: .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: End With
End Sub