Dim htmlTagCol As IHTMLElementCollection
Dim htmlSelectElem1 As IHTMLElementCollection
Dim NbrEntree As Integer
Dim TheEntree As Integer
Set htmlSelectElem1 = IE.all("core-wid-site-screen-addr-detail-group-btn")
Set htmlTagCol = htmlSelectElem1.getElementsByTagName("a")
NbrEntree = htmlSelectElem1.Length
MsgBox NbrEntree
'On redimensionne le tableau qui va contenir les valeurs
'On boucle sur chaque entrée
For TheEntree = 0 To NbrEntree - 1
MsgBox htmlTagCol(TheEntree).innerText
Next