Sub LienHyperActu()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim Cible As HTMLAnchorElement
Dim Doc As HTMLDocument
IE.navigate "http://www.XXXX.COM/"
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Doc = IE.Document
Set Cible = Doc.Links(25)
Cible.Click
End Sub