XL 2013 Mettre au dela de 10 WebBrowser sur userform

Private Sub UserForm_activate()
Dim drapeaux$, n&
  drapeaux = Array("afrique_du_sud", "algerie", "bostwana", "burkina-faso", "burundi", "cameroun", "cap_vert", "Comores", "Congo", "cote_d_ivoire", "egypte", "eritree")
For n = LBound(drapeaux) To UBound(drapeaux)
        Me.Controls("WebBrowser" & n + 1).Style.BorderStyle = "none" 'Cadre
   Next n
End Sub

drapeaux = Array("Afrique du sud", "Algerie", "Bostwana", "Burkina Faso", "Burundi", "Cameroun", _
  "Cap Vert", "Comores", "Congo", "Côte d'Ivoire", "Egypte", "Eritree", "Ethyopie", "Gabon", "Gambie", _
  "Ghana", "Guinée", "Guinée Bissau", "Guinée Equatoriale", "Katanga")

Private Sub UserForm_activate()
Dim ctrl As Control
On Error Resume Next
For Each ctrl In Me.Controls
If TypeName(ctrl) = "WebBrowser" Then
ctrl.Visible = True
With ctrl
.Document.body.Style.BorderStyle = "none"
End With
End If
   Next ctrl
End Sub

drapeaux = Array("Afrique du sud", "Algerie", "Bostwana", "Burkina Faso", "Burundi", "Cameroun", _
  "Cap Vert", "Comores", "Congo", "Côte d'Ivoire", "Egypte", "Eritree", "Ethyopie", "Gabon", "Gambie", _
  "Ghana", "Guinée", "Guinée Bissau", "Guinée Equatoriale", "Katanga")