Sub recupGAZ()
'Nécessite d'activer la référence
'"Microsoft Internet Controls"
'et
'"Microsotf HTML Object Library"
Sheets("Récup Web").[B5].ClearContents
Dim IE As New InternetExplorer
Dim winShell As New ShellWindows
Dim maPageHtml As HTMLDocument
IE.navigate ("http://www.powernext.com/#sk;tp=app;n=market;f=listMarketTable;t=layout/gasSpot;fp=system_name:gasSpot;lang=en_US")
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> "" Then
Set maPageHtml = IE.document
Sheets("Récup Web").Range("B5") = maPageHtml.DocumentElement.innerText
Set maPageHtml = Nothing
End If
Next IE
On Error GoTo 0
End Sub