Ik heb de webpagian van JEC opgeslagen als G:\OF\lotto.htm.
Daarna deze code erop losgelaten.
Sub M_snb()
sn = Split(Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\lotto.htm").readall, "De Nationale Loterij van Belgi")(0), " Uitslag trekking ")
For j = 1 To UBound(sn)
c00 = Replace(Replace(Replace(Replace(Replace(Join(Filter(Split(Replace(Replace(sn(j), "<", "<~"), ">", "~<"), "<"), "~", 0), ""), "–", "_"), "â", ""), "Â", ""), "¬", ""), Chr(160), "")
sn(j) = Replace(Replace(Split(c00, "Lijst")(0), vbLf & vbLf, vbLf), vbLf & " ", vbLf)
Next
sn(0) = ""
sn = Split(Join(sn, ""), vbLf)
Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, ":"
Columns(1).Resize(, 3).AutoFit
End Sub