Sub Récap()
Dim Temp$
Application.DisplayAlerts = 0
[A1].CurrentRegion.Offset(4).Clear
Temp = Dir(ActiveWorkbook.Path & "\*.xlsx")
Do While Temp <> ""
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
With ThisWorkbook.Sheets(1)
[A1].CurrentRegion.Offset(9).Copy .[A65536].End(3)(2)
End With
Workbooks(Temp).Close
Temp = Dir
Loop
Application.Goto [A1], -1
Application.DisplayAlerts = -1
End Sub