Extraction de données d'une page HTML

Bonjour,

Je cherche à extraire des données d'une page HTML d'un site intranet.

J'ai écrit la macro suivante qui me fournit bien le contenu de l'item 81 de la page HTML dans une fenêtre MsgBox.

L'ITEM 81 est le status de la demande de prestation : ici "Terminée"

Par contre je n'arrive pas à extraire les informations contenue dans la case "Site concerné".

Je fournis en pièce jointe une photo de la page et le code HTML du tableau contenant l'information que je cherche.. Je ne peux malheureusement pas fournir l'adresse URL.

Un grand merci à celui qui pourra m'aider. L'expression IEDoc.all n'est probablement pas la bonne expression.

Sub Essai()
'Déclaration des variables
Dim HtmlElementStandard As HTMLGenericElement
Dim LeTexteExtrait As String
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
'Chargement de Sillage
IE.Navigate "http::::"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
'On pointe le membre Document
Set IEDoc = IE.Document
'On pointe sur l'item 81 de la page HTML qui est le status de la demande de prestation
Set HtmlElementStandard = IEDoc.all(81)
'On le place dans notre variable prévue à cet effet
LeTexteExtrait = HtmlElementStandard.innerText
'On libère les variables
IE.Visible = False
'on affiche dans une fenêtre le contenu de l'item 81
MsgBox (LeTexteExtrait)
'on masque la fenêtre IE
IE.Visible = False
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub