Dim contenuHTML As String
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.codes-sources.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
contenuHTML = WB.Document.documentElement.innerHTML
End Sub