Sub PagesJaunes()
Dim IE As InternetExplorer
Dim PageHtml As HTMLDocument
Dim HLink As HTMLAnchorElement
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.pagesjaunes.fr/pagesblanches"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set PageHtml = IE.document
Set HLink = PageHtml.getElementById("linkSearch")
HLink.Click
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set HLink = Nothing
Set PageHtml = Nothing
IE.Quit
Set IE = Nothing
End Sub