Sub Importer()
Dim chemin$, fichier$, F As Worksheet, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xlsx")
Set F = ActiveSheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà ouvert
Rows("2:" & Rows.Count).Delete 'RAZ
While fichier <> ""
With Workbooks.Open(chemin & fichier).Sheets(1)
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
If .ListObjects.Count Then .ListObjects(1).DataBodyRange.Copy F.Cells(lig, 1)
.Parent.Close
End With
fichier = Dir
Wend
With F.UsedRange
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
End Sub