@Molly , bedankt voor de aanpassingen ! ik denk niet dat het nu nog eenvoudiger kan én als er in de toekomst iets veranderd aan de website dan ik dat makkelijk aanpassen !

@snb : bedankt voor je inbreng , alleen :
1) in het begin zijn we gestart met een topic daarover dat Jean-Pierre opgestart heeft : https://www.oplossing.be/excel/code-lotto/ , dit met het kopiëren van gegevens op de Lotto website...
al vlug kwam er bij mij de bedenking of dit niet "geautomatiseerd" kon worden , met als gevolg dat JEC en MOLLY de code daarvoor hebben uitgewerkt.

2) toen de Lotto website veranderd werd klopte de "webscraping" dus weer niet meer en werd er uitgeweken naar de website van "geschenken" (https://www.geschenkwensen.be/lotto-uitslagen/) , JEC en MOLLY hebben daar dan weer hun tanden ingezet met een werkende code als gevolg.
zondag wilde ik mijn lotto controleren en het werkte wéér niet meer , daarom het opstarten van dit topic , omdat webscraping onbetrouwbaar is wil ik weer uitwijken naar de methode van Jean-Pierre via "kopiëren" , maar dan wel via de website van "geschenken"......

3) Mijn kennis is absoluut ontoereikend om aan het werk te gaan met Uw code ! dit betekent dan ook mocht er in de toekomst iets aan de website(s) veranderen en de "webscraping" weer niet meer klopt , Uw code ook niet meer klopt en ik terug moet aanspraak maken op de hulp hier op het forum.
om dit naar de toekomst te vermijden ga ik dus gebruik maken van het kopiëren van de lotto gegevens mét de huidige code , code die ik begrijp én zelf kan aanpassen !

Mvg,
Arnold.

Dag SNB,
zoals ik al aangaf , Uw code is jammer genoeg voor mij ( ik ben er 70 en nog "old skool" wat vba betreft ) absoluut niet begrijpelijk , sry....
wat ik heb gedaan om het voor MIJ wél begrijpelijk te houden én ook aanpasbaar als de website veranderd is volgende :
1) ik kopieer de nodige gegevens van de website  (zie afbeelding "website gekopieerd") en plaatst die ergens op mijn Excel blad , dat gebeurd automatisch na het klikken op de button "controle" via "paste" (zie afbeelding "lotto gekopieerd").
nu kan ik makkelijk de nodige gegevens daar uit halen om de controle uit te voeren...
hopelijk kan je hiervoor begrip opbrengen ?
Mvg,
Arnold.

ancient skool VBA (ook voor 80+  -ers)
Het gebruik van replace, split, join en filter.

c00=Replace(sn(1), "<", "<~")
      Msgbox c00
c00=replace(c00, ">", "~<")
      Msgbox c00
sn=split(c00,"<")
     Msgbox join(sn)
sn=filter(sn,"~",0)
     Msgbox join(sn)
c00=join(sn,"")
    Msgbox c00
c00=replace(c00,"&#8211;", "_")
    Msgbox c00
c00=replace(c00,"Â" & Chr(160), "")
    Msgbox c00
c00=  replace(c00, " + ", " _  _ ")
    Msgbox c00
sp=split(c00,vblf)
is hetzelfde als de eenregelige:

sp = Split(Replace(Replace(Replace(Join(Filter(Split(Replace(Replace(sn(1), "<", "<~"), ">", "~<"), "<"), "~", 0), ""), "&#8211;", "_"), "Â" & Chr(160), ""), " + ", " _  _ "), vbLf)
Gebruik F8 in de VBEditor en je ziet alle stappen.
Desnoods gebruik je Debug.Print en het 'Immediate Window'.

vraagje want ik geraak er weeral niet uit  , in volgende code : Range("D20:I21").Value = Sheets("Afdrukken").Range("B18:G19").Value zou de waarde 20 van "D20" moeten vervangen worden door de variabele "hoeveel" , hoe doe ik dat ?
dus zou moeten worden Range("Dhoeveel:I21").Value = Sheets("Afdrukken").Range("B18:G19").Value
Mvg,
Arnold.

Dag Molly , je hebt idd gelijk , ik kom dan in de knoei  , die 21 moet ook vertaald worden naar hoeveel + 1...
wil jij dit voor mij doen ? heb het zelf geprobeerd maar draait in de soep....
ik had geschreven Range("D" & hoeveel & ":"I" & hoeveel +1 &) maar dat werkt dus niet 
Mvg,
Arnold.

Dankuwel Molly ! werkt perfect 
Nog een fijne avond 
Mvg,
Arnold.