Sub Compilation()
Dim Temp As String
Dim Ligne As Long, liged As Long
Dim nom As String
Temp = Dir(ActiveWorkbook.Path & "\*.csv")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
nom = Replace(ActiveWorkbook.Name, "all_devices_default_view_", "")
nom = Mid(nom, 1, InStrRev(nom, "_") - 1)
Workbooks("Recap.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("b65536").End(xlUp).Row + 1
liged = Ligne + 1
Sheets(1).Range("a" & liged) = nom
Range("b" & CStr(Ligne)).Select
ActiveSheet.Paste
Sheets(1).Range("A" & liged & ":A" & Sheets(1).Range("b65536").End(xlUp).Row).FillDown
Sheets(1).Rows(liged - 1).Delete Shift:=xlUp
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub