Public IE As New InternetExplorer

Sub Recupinternet()
        Dim IEDoc As HTMLDocument
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.navigate "http://www.hydro.eaufrance.fr/selection.php"
        Do Until IE.readyState = READYSTATE_COMPLETE
                DoEvents
        Loop    'attend la fin du chargement
        
        Do While IE.document.readyState <> "complete"
                DoEvents
        Loop    'attend la fin du chargement du document
        'ici j'ai une routine qui nous amène jusqu'à la page voulue, mais on peut aussi le faire a la
        'main en suivant les indications ci dessus
        Set IEDoc = IE.document
        Dim htmlSelectElem As HTMLSelectElement
        Set htmlSelectElem = IEDoc.all("debut_an")

        htmlSelectElem.selectedIndex = 0
End sub

<select id="debut_an" name="debut_an">
<option value="2020" selected>2020</option>
<option value="2019" >2019</option>
<option value="2018" >2018</option>
<option value="2017" >2017</option>
<option value="2016" >2016</option>
.
.
.
<option value="1966" >1966</option>
<option value="1965" >1965</option>
<option value="1964" >1964</option>
</select></td>