Sub Importer()
Dim chemin$, fichier$, F As Worksheet, lig&, a()
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "*.xhtml") '1er fichier du dossier
Set F = Feuil1 'CodeName
Application.ScreenUpdating = False
On Error Resume Next 'si des données ne sont pas trouvées
F.Range("A2:E" & F.Rows.Count).ClearContents 'RAZ
lig = 2
While fichier <> ""
Workbooks.Open chemin & fichier 'ouverture du fichier
ReDim a(1 To 5)
a(1) = CDate(Application.VLookup("Date*", Columns("A:B"), 2, 0))
a(2) = Application.VLookup("Identifiant*", Columns("A:B"), 2, 0)
a(3) = Application.VLookup("Prix*", Columns("A:B"), 2, 0)
a(3) = Val(Replace(Replace(a(3), "[", ""), "]", ""))
a(4) = Cells(1)
a(5) = Cells(5, 1)
F.Cells(lig, 1).Resize(, 5) = a
ActiveWorkbook.Close 'fermeture du fichier
lig = lig + 1
fichier = Dir 'fichier suivant
Wend
F.Columns("A:E").AutoFit 'ajustement largeurs
End Sub