Début du code
IE.navigate ("http://www.test.com")
Do Until IE.readyState = 4
DoEvents
Loop
Application.OnTime Now + TimeValue("00:00:40"), "Eteindre"
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementById("Name")
DOCelement.Value = Textbox6.value
Set DOCelement = IEdoc.all("Search")
DOCelement.Click
...
'Là je récupère un tableau affiché sur la page après la recherche
'La macro plante si la page met trop longtemps à se charger
On Error GoTo ErrorHandler
...
Exit Sub
ErrorHandler:
MsgBox "Le serveur met trop de temps à répondre ! Veuillez recommencer plus tard..."
Unload UserForm4
End Sub