Private Sub CommandButton1_Click()
Dim Quitte As String
Quitte = ThisWorkbook.Path & "\wait.gif"
WebBrowser1.Navigate _
"about:<html><body scroll='no' BottomMargin=0" & _
"LeftMargin=0 TopMargin=0 RigthMargin=0>" & _
"<img src='" & Quitte & "' width='100%' height='100%'></img></body></html>"
With WebBrowser1.Document.body
.Style.backgroundcolor = RGB(0, 0, 0) 'Fond blanc
.Style.BorderStyle = "none" 'Cadre
.Scroll = "no" 'Barres
End With
End Sub