Import données web

Sub importer()
Dim Lig As Long, DernLig As Long, Hyperlien

With Sheets("IMPORT")
    .Cells.Clear
End With
With Sheets("ACCUEIL")
    DernLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 1 To DernLig
        Hyperlien = .Range("A" & Lig).Value
        Import (Hyperlien)
    Next Lig
End With
End Sub

Sub Import(Lien)
Application.ScreenUpdating = False
    With Sheets("IMPORT").QueryTables.Add(Connection:="URL;" & Lien & "" _
    , Destination:=Sheets("IMPORT").Range("A" & Rows.Count).End(xlUp).Offset(1, 0))
        .Name = ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Application.ScreenUpdating = True
End Sub