Sub test()
Dim reQ, Url$, x$, table As Object
Url = "https://www.wikitimbres.fr/timbres/12398/2021-nouvel-an-chinois-annee-du-buffle"
Set reQ = CreateObject("microsoft.xmlhttp")
reQ.Open "get", Url, False
reQ.send
With CreateObject("htmlfile")
.body.innerhtml = reQ.responsetext
Set table = .getelementsbytagname("table")
End With
MsgBox "la premiere table en format text" & vbCrLf & table(0).innertext
MsgBox "la premiere table en format html" & vbCrLf & table(0).innerhtml
maligne3 = table(0).getelementsbytagname("tr")(2).innertext
MsgBox "' on peut même disséquer la table encore pour aller chercher une cellule ou une ligne précise " _
& vbCrLf & "----" & vbCrLf & maligne3
End Sub