Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim DOCelement As Object
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("http://www.merckmillipore.fr/life-science-research/coa-search/c_t5Sb.s1O9kQAAAEZ474f_JlG")
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementById("searchformCoA_WFSimpleSearch_NameOrID")
DOCelement.Value = "693021"
Set DOCelement = IEdoc.getElementById("searchformCoA_charge")
DOCelement.Value = "D00026936"
' ajout des deux lignes suivantes
DOCelement.Select
SendKeys "~", True