Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("afrique_du_sud", "algerie", "bostwana", "burkina-faso")
For n = LBound(drapeaux) To UBound(drapeaux)
Largeur = WebBrowser1.Width * 56 / 55
Hauteur = WebBrowser1.Height * 30 / 30
S = "C:\Users\Max\Desktop\Drapeau Small\" & drapeaux(n) & "small.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
Next
End Sub