Lire un tableau dans une page Internet

Sub Lire_Ligne_SRD_Myta()

    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim HtmlTag As IHTMLElementCollection
    Dim Titre As String, Valeur(6) As String
    Dim Cel As Range, I As Integer

    For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)

        IE.Navigate Cel
        IE.Visible = True
        Do Until IE.readyState = READYSTATE_COMPLETE
            DoEvents
        Loop
        Set IEDoc = IE.document

        Set HtmlTag = IEDoc.getElementsByTagName("td")

        Titre = "ACCOR": Valeur(0) = "N/A"

        For I = 0 To HtmlTag.Length - 1
            If HtmlTag.Item(I).innerText = Titre Then
                Valeur(0) = HtmlTag.Item(I + 1).innerText
                Valeur(1) = HtmlTag.Item(I + 2).innerText
                Valeur(2) = HtmlTag.Item(I + 3).innerText
                Valeur(3) = HtmlTag.Item(I + 4).innerText
                Valeur(4) = HtmlTag.Item(I + 5).innerText
                Valeur(5) = HtmlTag.Item(I + 6).innerText
                Valeur(6) = HtmlTag.Item(I + 7).innerText
                Exit For
            End If
        Next I

        Cel.Offset(0, 1) = Titre
        Cel.Offset(0, 2) = Valeur(0)
        Cel.Offset(0, 3) = Valeur(1)
        Cel.Offset(0, 4) = Valeur(2)
        Cel.Offset(0, 5) = Valeur(3)
        Cel.Offset(0, 6) = Valeur(4)
        Cel.Offset(0, 7) = Valeur(5)
        Cel.Offset(0, 8) = Valeur(6)

    Next Cel

    IE.Quit
    Set HtmlTag = Nothing
    Set IEDoc = Nothing
    Set IE = Nothing

End Sub

Sub Get_Tableau()
    With Sheets("Feuil1")
        With .QueryTables.Add( _
             Connection:="URL;http://bourse.investir.fr/bourse/potentiels/conseils_srd_az.jsp", _
             Destination:=.Cells(2, 2))
            .BackgroundQuery = True
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "1"
            .TablesOnlyFromHTML = True
            .WebDisableDateRecognition = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
    End With
End Sub

Sub Get_Tableau()
    With Sheets("Feuil1")
        With .QueryTables.Add( _
             Connection:="URL;http://bourse.investir.fr/bourse/potentiels/conseils_srd_az.jsp", _
             Destination:=.Cells(2, 2))
            .BackgroundQuery = True
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlNone 'xlWebFormattingRTF
            .WebTables = "1"
            .TablesOnlyFromHTML = True
            .WebDisableDateRecognition = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
    End With
End Sub