Lien Internet dans barre outils

Sub CreationBarreLienHypertexte()
Dim m As CommandBar, c1 As CommandBarPopup, c2 As CommandBarButton, c3 As CommandBarButton
Set m = CommandBars.Add("MesLiens")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
With c1
    .Caption = "Mes Adresses Internet"
    Set c2 = .Controls.Add(msoControlButton)
    Set c3 = .Controls.Add(msoControlButton)
End With
With c2
    .Caption = "XLD"
    .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = "http://www.excel-downloads.com/forum/forum-excel/"
End With
With c3
    .Caption = "Google"
    .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = "http://www.google.fr/"
End With
End Sub

Sub CreationBarreLienHypertextebis()
'Isssu du code de Pierrot93 adapté par MJ
Dim m As CommandBar, c As CommandBarPopup ', c(100) As String
On Error Resume Next
 CommandBars("Internet").Delete
Set m = CommandBars.Add("internet")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
Set c1 = m.Controls.Add(msoControlPopup)
With c1
.Caption = "Internet"
'For i = 2 To 3
 
        'Set c(i) = .Controls.Add(msoControlButton)
  n = 4
    Set c2 = .Controls.Add(msoControlButton)
With c2
If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c3 = .Controls.Add(msoControlButton)
With c3
If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c4 = .Controls.Add(msoControlButton)
 
 With c4
 If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c5 = .Controls.Add(msoControlButton)
    With c5
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
    End With
    Set c6 = .Controls.Add(msoControlButton)
    With c6
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
    End With
    Set c7 = .Controls.Add(msoControlButton)
    With c7
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c8 = .Controls.Add(msoControlButton)
    With c8
    If Range("a" & n).Value = "" Then End
   .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c9 = .Controls.Add(msoControlButton)
    With c9
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c10 = .Controls.Add(msoControlButton)
    With c10
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
End With
End Sub

Option Explicit
Sub CreationBarreLienHypertexte()
Dim m As CommandBar, c1 As CommandBarPopup, c2 As CommandBarButton,i As Byte
Set m = CommandBars.Add("MesLiens")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
With c1
    .Caption = "Mes Adresses Internet"
    For i = 1 To 2
        Set c2 = .Controls.Add(msoControlButton)
        With c2
        .Caption = Cells(i, 1).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
        .TooltipText = Cells(i, 2).Value
    End With
    Set c2 = Nothing
    Next i
End With
End Sub