Private Sub CommandButton1_Click()
Dim srcImg As String
srcImg = ThisWorkbook.Sheets("Feuil1").Range("B1").Value
UserForm1.Show 0
UserForm1.WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='" & srcImg & "'></img></body></html>"
[COLOR="Red"][B]Module1.LaMacro[/B][/COLOR]
UserForm1.Hide
End Sub