[Excel VBA]Probleme de creation de barres

Application.CommandBars("MaBarre").Visible = True/False

Sub CréeBarreOutils()

  On Error Resume Next
  CommandBars("MaBarre").Delete
  On Error GoTo 0
  
  With CommandBars.Add(Name:="MaBarre")
  
    With .Controls.Add(Type:=msoControlButton)
      .OnAction = "MaMacro"                     ' macro à lancer
      .FaceId = 2600                            ' modèle de bouton
      .TooltipText = "Ça fait ci"               ' info bulle
    End With
  
    With .Controls.Add(Type:=msoControlPopup)
      .Caption = "Autre façon de faire"
      .TooltipText = "Texte qu'on veut"
      With .Controls.Add(msoControlButton)
        .TooltipText = "Ça fait ca"             ' info bulle
        .FaceId = 2600                          ' modèle de bouton
        .OnAction = "MonAutreMacro"             ' macro à lancer
        .Caption = "Lancement"                  ' texte de la ligne
      End With
    End With
    
    .Visible = True
  End With
  
End Sub
Sub MaMacro()
  MsgBox "Ça marche !"
End Sub
Sub MonAutreMacro()
  MsgBox "Ça marche aussi!"
End Sub

Private Sub Workbook_Open()
  ==   ici le lancement  ==
End Sub

Nom-barre Nom-macro Libellé-barre N°-bouton
B1        Macro1    La Une        483
B1        Macro2    La Deux       481
B1        Macro3    La Trois      482
B1        Macro4    La Quatre     484
B2        Macro5    La Cinq        59
B2        Macro6    La Six        276

Sub CréeBarreOutils()

  Dim I         As Long
  Dim Barre     As String
  Dim Macro     As String
  Dim Libellé   As String
  Dim Bouton    As Long
  
  Worksheets("listeMacros").Activate
  
  I = 2
  Do While Cells(I, 1).Value <> ""
    Barre = Cells(I, 1).Value
    
    On Error Resume Next
    CommandBars(Barre).Delete
    On Error GoTo 0
    
    With CommandBars.Add(Name:=Barre)
      Do
        Macro = Cells(I, 2).Value
        Libellé = Cells(I, 3).Value
        Bouton = Cells(I, 4).Value
        With .Controls.Add(Type:=msoControlButton)
          .OnAction = Macro
          .FaceId = Bouton
          .TooltipText = Libellé
          .Caption = Libellé
        End With
        I = I + 1
      Loop While Cells(I, 1) = Barre
      .Visible = True
    End With
  Loop
  
End Sub
Sub Macro1()
  MsgBox "OK1"
End Sub
Sub Macro2()
  MsgBox "OK2"
End Sub
Sub Macro3()
  MsgBox "OK3"
End Sub
Sub Macro4()
  MsgBox "OK4"
End Sub
Sub Macro5()
  MsgBox "OK5"
End Sub
Sub Macro6()
  MsgBox "OK6"
End Sub