Option Explicit
Sub ImporterDates()
Dim Chemin As String, Fichier As String
Dim i As Long
Dim DernLigne As Long
Columns(1).NumberFormat = "m/d/yyyy"
Chemin = "C:\Users\Tuco\Desktop\Analyse par heure et par mois\"
[B1] = Chemin
Fichier = Dir(Chemin & "*.xls")
Do While Len(Fichier) > 0
If Fichier <> ThisWorkbook.Name Then
i = 123
ThisWorkbook.Names.Add "Plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Feuil1'!$A$1:$H$" & i
With Sheets("Feuil2")
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:H" & i) = "=Plage"
.Range("A1:H" & i).Copy
Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
End If
Fichier = Dir()
Loop
End Sub