Sub Test()
Dim Resultat As String
Resultat = Contenu_Texte_URL("[URL]https://www.excel-downloads.com/threads/recuperer-le-code-html-dune-page-web-a-partir-dexcel.106635/[/URL]" & _
"-r-cup-rer-le-code-html-dune-page-web-partir-dexcel.html")
MsgBox Resultat
End Sub
Function Contenu_Texte_URL(strURL As String) As String
Dim IE As Object
Dim maPageHtml As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate strURL
Do Until IE.readyState = 4
DoEvents
Loop
Set maPageHtml = IE.Document
Contenu_Texte_URL = maPageHtml.Body.InnerText
IE.Quit
End Function