Sub declencherLienPageWeb()
'http://www.excel-downloads.com/component/option,com_simpleboard/Itemid,40/func,view/catid,2/id,98119/#98119
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As New internetExplorer
Dim Cible As HTMLAnchorElement
Dim Doc As HTMLDocument
IE.Navigate "http://www.excel-downloads.com"
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
doEvents
Loop
Set Doc = IE.Document
Set Cible = Doc.links(27)
Cible.Click
End Sub