Dim a As Workbook
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim chemin$, Classeur$, MAJ1$, MAJ2
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
chemin = oFolderItem.Path
Classeur = Dir(chemin & "\*.html")
Set a = ThisWorkbook
Do While Classeur <> Empty
With Workbooks.Open(chemin & "\" & Classeur)
With .Sheets(1)
Rows("13:13").Select
Selection.Copy
Windows("Classeur1").Activate
.Range("A65356").End(xlUp).Row 1
ActiveSheet.Paste
End With
.Close True
End With
Loop
End Sub