Conversion de barres d'outils perso Excel2003 en Excel2010

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Bar As CommandBar
  For Each Bar In Application.CommandBars
    If Not Bar.BuiltIn Then
      Select Case Bar.name
        Case "MaBarre1"
          Bar.Delete
        Case "MaBarre2"
          Bar.Delete
        Case "MaBarre3"
          Bar.Delete
    End If
  Next
End Sub

Private Sub Workbook_Open()
  Dim Bar As CommandBar
  For Each Bar In Application.CommandBars
    Select Case Bar.name
      Case "MaBarre1"
        Bar.Visible = True
      Case "MaBarre2"
        Bar.Visible = True
      Case "MaBarre3"
        Bar.Visible = True
      Case Else
        If bar.BuiltIn Then bar.Visible = False
    End Select
  Next
End Sub

Private Sub Workbook_Open()
Dim Bar As CommandBar
Dim MesBarres(1 To 2, 1 To 6) As Variant  '1: Nom, 2: Visible
Dim NomsBarres As Variant
Dim NomBarre As Variant
Dim Position_Barre As Long
Dim ctr As Integer
  
  'Initialiser les barres classiques et masquer toutes les barres personnelles
  For Each Bar In Application.CommandBars
    Select Case Bar.Name
      Case "Worksheet Menu Bar"  'Barre de menus Feuille de calcul
        Bar.Visible = True
        Bar.RowIndex = 1
        Bar.Left = 0
      Case "Standard"            'Standard
        Bar.Visible = True
        Bar.RowIndex = 3
        Bar.Left = 0
      Case "Formatting"          'Mise en forme
        Bar.Visible = True
        Bar.RowIndex = 3
        Bar.Left = 1
     Case Else
        If Not Bar.BuiltIn Then Bar.Visible = False
    End Select
  Next

  'Inialiser les barres personnelles et les placer dans l'ordre choisi
  MesBarres(1, 1) = "BarreMacrosC1": MesBarres(2, 1) = True
  MesBarres(1, 2) = "BarreMacrosC2": MesBarres(2, 2) = True
  MesBarres(1, 3) = "BarreMacrosC3": MesBarres(2, 3) = True
  MesBarres(1, 4) = "MacrosPlanningMed": MesBarres(2, 4) = True
  MesBarres(1, 5) = "BRV": MesBarres(2, 5) = True
  MesBarres(1, 6) = "Plan": MesBarres(2, 6) = True
  For ctr = LBound(MesBarres, 2) To UBound(MesBarres, 2)
    On Error Resume Next
    Set Bar = Application.CommandBars(MesBarres(1, ctr))
    On Error GoTo 0
    If Not Bar Is Nothing Then
      Bar.Enabled = True
      Bar.Visible = True
      Bar.Position = msoBarTop
      Bar.RowIndex = 4
      Bar.Left = Position_Barre
      Position_Barre = Position_Barre + Bar.Width
      Bar.Visible = MesBarres(2, ctr)
    End If
  Next

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Bar As CommandBar
  For Each Bar In Application.CommandBars
    If Not Bar.BuiltIn Then
      Select Case Bar.Name
        Case "BarreMacrosC1"
          Bar.Delete
        Case "BarreMacrosC2"
          Bar.Delete
        Case "BarreMacrosC3"
          Bar.Delete
        Case "BRV"
          Bar.Delete
        Case "MacrosPlanningMed"
          Bar.Delete
        Case "Plan"
          Bar.Delete
      End Select
    End If
  Next
End Sub