Sub aaaaa()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
sousRépertoire = "Fichiers Retard Relance"
[A2].CurrentRegion.Offset(1, 0).Clear
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
With ThisWorkbook.Sheets("Feuil1")
derlig = .Range("A65000").End(xlUp).Row + 1
.Range("A" & derlig) = DateSerial((Mid(Cells(1, 1), 18, 4)), (Mid(Cells(1, 1), 15, 2)), (Mid(Cells(1, 1), 12, 2)))
.Range("B" & derlig) = Left([D7], InStr(1, [D7], " ") - 1)
.Range("C" & derlig) = LTrim(Split([B3] & " ")(0))
.Range("D" & derlig) = Application.Sum(Range("j1").EntireColumn) / 2
End With
ActiveWorkbook.Close False
nf = Dir ' fichier suivant
Loop
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub