Private Sub UserForm_Initialize()
'WebBrowser
Dim S1$, S2$, Hauteur1&, Largeur1&, Hauteur2&, Largeur2&
Largeur1 = WebBrowser1.Width * 126 / 102
Hauteur1 = WebBrowser1.Height * 126 / 102
Largeur2 = WebBrowser2.Width * 126 / 102
Hauteur2 = WebBrowser2.Height * 126 / 102
S1 = "C:\Users\Max\Desktop\Carte de france\France.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur1 & " HEIGHT=" & Hauteur1 & _
" SRC='" & S1 & "'</IMG></BODY></CENTER></HTML>"
S2 = "C:\Users\Max\Desktop\Carte de france\European.gif"
WebBrowser2.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur2 & " HEIGHT=" & Hauteur2 & _
" SRC='" & S2 & "'</IMG></BODY></CENTER></HTML>"
'Stop
End Sub