peux tu donner plus d'explications :
à quel moment veux tu changer la couleur ? lors de l'ouverture du classeur ? lors d'un clic sur un bouton ? suite à un evenement dans la feuille ? ....
pour quoi utilises tu l'evenement 'WebBrowser1_StatusTextChange' ?
pour info , le WebBrowser doit etre prealablement chargé avant de modifier la couleur
par exemple
Sheets('Feuil1').WebBrowser1.Navigate _
'about:<html><body scroll='no'><img src='C:\\image.gif'></img></body></html>'
Do
DoEvents
Loop While Sheets('Feuil1').WebBrowser1.Busy
Sheets('Feuil1').WebBrowser1.Document.bgColor = RGB(224, 224, 224)
tu peux aussi utiliser l'evenement 'DocumentComplete' du WebBrowser
la couleur change dès qu'un chargement est terminé dans le WebBrowser
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Sheets('Feuil1').WebBrowser1.Document.bgColor = RGB(224, 224, 224)
End Sub