Public x As Byte
Sub es()
If x = 4 Then x = 1
With UserForm1
If x = 1 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-010.gif"
If x = 2 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/bateaux/bateaux-gif-041.gif"
If x = 3 Then .WebBrowser1.Navigate "http://www.icone-gif.com/gif/vehicules/camions/256-dtruckb3.gif"
End With
End Sub