Sub Compilation()
Dim Temp As String, Cel As Range
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
Temp = Dir("*.xls*")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> ThisWorkbook.Name Then
Set Cel = Feuil1.Cells(1, 1)
If Cel.Value = "" Then Set Cel = Cel.End(xlToRight).Offset(, 1)
Workbooks.Open Temp
ActiveWorkbook.Worksheets(1).Range("A1").CurrentRegion.Copy Destination:=Cel
ActiveWorkbook.Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub