Resultat code différent selon emplacement d'un breakpoint vba

Public IE As InternetExplorer

Sub Recupinternet()
' il faut cocher Microsoft HTML Object Library
' et Microsoft Internet Controls dans Outils - R?f?rences
    Dim Annee_debut As String
    Dim Annee_fin As String
    Dim test As String
    
    Dim codestation As String
    codestation = InputBox("Inscrivez le code de la station dont vous voulez visualiser les donn?es.", "Indispensable", "U1084010") 'U1084010 U2402010
    If codestation Like "*#######" Then
    Else:
        If MsgBox("Erreur: Format du code station incorrect, r?essayez ?", vbYesNo, "Demande de confirmation") = vbYes Then
                Call Recupinternet
        Else: End
        End If
    End If
    
    Set IE = CreateObject("InternetExplorer.Application")    'ouverture Internet Explorer
    Set IE2 = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.navigate "http://www.hydro.eaufrance.fr/selection.php"   
    IE2.Quit
    
    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

    Dim IECtrl As HTMLFormElement
    Set IECtrl = IE.Document.forms(0).code_station
    IECtrl.Value = codestation
    IE.Document.forms(0).cours_d_eau.Value = ""                         'Permet de remplir le formulaire de recherche de station
    IE.Document.forms(0).commune.Value = ""
    IE.Document.forms(0).departement.Value = "Tous"
    IE.Document.forms(0).bassin_hydrographique.Value = "Tous"
    
    IE.Document.all("station_en_service").Checked = True
    IE.Document.all("station_hors_service").Checked = True
    
    Button ("Nouvelle Recherche")                                       'Lance la recherche
    
    Dim ObjLien As HTMLLinkElement             'S?lectionne la station
    For Each ObjLien In IE.Document.Links 'pour chaque lien de la page active
        test = ObjLien.innerText
        If test = "cocher" Then
            ObjLien.Click    'clique sur le lien
            Exit For
        End If
    Next

    Call LoadPage

    Button ("Visualiser")       'Lance de la visualisation de la station choisie
    Button ("QJM")              'Affichage des d?bits journaliers

    If Mid(IE.Document.DocumentElement.innerText, 1, 39) = "HYDRO - erreur Aucune donn?e disponible" Then
        MsgBox "Il n'y a aucune donn?e disponible sur cette station", vbCritical, "Loghydro"
        USF_internet.PRG_internet.Visible = False
        USF_internet.LBL_progress.Visible = False
        USF_internet.CMD_IE.Visible = False
        IE.Quit
        Exit Sub
    End If
end sub

Public Function Button(Caption As String) As Boolean
' Clicks the button containing text Caption or returns false if button cannot be found
    Dim Element As HTMLButtonElement
    Dim test As String
    Button = True
    For Each Element In IE.Document.getElementsByTagName("Input")
    test = Element.Value
        If InStr(Element.Value, Caption) > 0 Then
            Element.Click
            Call LoadPage
            Exit Function
        End If
    Next Element
    Button = False
End Function


Sub LoadPage()
' Pauses execution until the browser window has finished loading
    Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
        'If optActiveX Then ' close any activex popup notifications
        'PostMessage FindWindow(?#32770?, ?Microsoft Internet Explorer?), &H10, 0&, 0&
        'End If
        DoEvents
    Loop
End Sub