Private Sub worksheet_activate()
'Le gif doit être dans le même répertoire avec le ThisWorkbook.Path
WebBrowser1.Navigate ThisWorkbook.Path & "\entretien_03.gif"
End Sub
Private Sub WebBrowser1_DownloadComplete()
On Error Resume Next
With WebBrowser1.Document.body
'Couleur de fond = blanc
.Style.backgroundcolor = RGB(255, 255, 255)
'Pas de bordure
.Style.BorderStyle = "none"
'Pas de Scrollbar
.Scroll = "no"
End With
End Sub