Sub test()
Dim reQ, Url$, x$, t$
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
x = .body.innertext
t = "-----Aspect-----" & vbCrLf & Split(Split(x, "Aspect")(1), "Auteurs")(0) & vbCrLf
t = t & "-----Auteurs-----" & vbCrLf & Split(Split(x, "Auteurs")(1), "Numéros & Dates")(0) & vbCrLf
t = t & "-----Numéros & Dates-----" & vbCrLf & Split(Split(x, "Numéros & Dates")(1), "Classements")(0) & vbCrLf
t = t & "-----Classements-----" & vbCrLf & Split(Split(x, "Classements")(1), "Information")(0)
End With
t = Replace(t, vbCrLf & vbCrLf, vbCrLf)
MsgBox t
End Sub