Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = 'Veuillez nous excuser pour cette coupure momentanée du réseau ...'
LaCouleur = '#CC0000'
If Feuil1.WebBrowser1.Document.body.innerHTML Like '*PROXY_AUTH_FAIL_OTHER*' Then _
Feuil1.WebBrowser1.Navigate _
'about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= ' & LaCouleur & _
' size='5' face='Arial'>' & _
'<marquee>' & LeTexte & '</marquee></font></body></html>'
End Sub