Private Sub OptionButton3_Click()
Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim DOCelement As Object
Application.DisplayAlerts = False
Set IE = New InternetExplorer
IE.Visible = True
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
If WaitIE(IE, 6) Then
SendKeys ("{TAB}")
SendKeys ("{ENTER}")
End If