Que fait cette macro complémentaire?

Bonjour le forum,

J'avais trouvé il y a quelques années cette macro complémentaire b] Onglets[/b]

Je ne me rappelles plus du tout ce qu'elle fait.

Quelqu'un aurait-il une idée pour que je puisse me remémorer sa fonction?

Merci d'avance pour vos retours éventuels.

Cordialement

Option Explicit

Public MyNewBar As New ComboBoxSheets
Public MyBar As CommandBarComboBox

Sub ComboOnglets(Optional a As Boolean)

Dim i As Integer

On Error Resume Next
  Application.CommandBars("standard"). _
              Controls("Onglets").Delete

Set MyBar = Application.CommandBars("standard"). _
    Controls.Add(msoControlComboBox)
        With MyBar
            .Caption = "Onglets"
        For i = 1 To Worksheets.Count
        If Sheets(i).Visible = True Then
            .AddItem Sheets(i).Name
        End If
        Next i
            .DropDownLines = 50
            .DropDownWidth = -1
            .ListHeaderCount = 0
            .Text = ActiveSheet.Name
            .Width = 100
        End With
    MyNewBar.SynchroBox MyBar
    MyBar.Visible = True
End Sub

Sub SupComboOnglets(Optional a As Boolean)
  On Error Resume Next
  Application.CommandBars("standard"). _
              Controls("Onglets").Delete
End Sub

Sub ComboOnglets2(Optional a As Boolean)

Dim i As Integer

Set MyBar = Application.CommandBars("standard"). _
    Controls("Onglets")
With MyBar
    .Clear
For i = 1 To Worksheets.Count
If Sheets(i).Visible = True Then
    .AddItem Sheets(i).Name
End If
Next i
    .Text = ActiveSheet.Name
End With

End Sub

Bonsoir le forum,

J'ai retrouvé en "grattant" une partie de l'après-midi!!!

Bonne fin de soirée à vous

Cordialement