Set IE = New InternetExplorer
IE.Visible = True
If ComboBox1.Value = "TEST" Then
IE.navigate ("http://fr.test.com/app/search/")
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementById("keywords")
DOCelement.Value = TextBox6.Value
Set DOCelement = IEdoc.getElementById("Batch")
DOCelement.Value = TextBox7.Value
Set DOCelement = IEdoc.all("Search") DOCelement.Click
Do Until IE.readyState = 4
DoEvents
Loop 'c'est à ce moment que le message d'avertissement apparaît
SendKeys ("{TAB}")
SendKeys ("{ENTER}")
... suite du code