Microsoft 365 Macros "appel" décaler les .AddItem actifs

Private Sub UserForm_Initialize()
    'With Me.ListBox1
    With Me.ListBox1
    .AddItem "MACROS"
    .AddItem vbTab & "Macros OUI"
    .AddItem vbTab & "Macros NON"
    .AddItem "TRIER"
    .AddItem vbTab & "tri_CltsN°"
    .AddItem vbTab & "tri_Packs"
    .AddItem vbTab & "tri_Prix_Pack"
    .AddItem vbTab & "tri_Clt"
    .AddItem vbTab & "tri_Cx"
    End With
End Sub

Private Sub UserForm_Initialize()
Dim Str$
Str = Application.WorksheetFunction.Rept(" ", 4)
With choix_admin.ListBox1
.AddItem "MACROS"
.AddItem Str & "Macros OUI"
.AddItem Str & "Macros NON"
.AddItem "TRIER"
.AddItem Str & "tri_CltsN°"
.AddItem Str & "tri_Packs"
.AddItem Str & "tri_Prix_Pack"
.AddItem Str & "tri_Clt"
.AddItem Str & "tri_Cx"
End With
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
MsgBox Button.Caption
Select Case Button.Caption
    Case "MACROS"
    Case "TRIER"
End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox ButtonMenu.Text
Select Case ButtonMenu.Text
        Case "tri_CltsN°"
        Case "tri_Packs"
        Case "tri_Prix_Pack"
        Case "tri_Clt"
        Case "tri_Cx"
End Select
End Sub
Private Sub UserForm_Initialize()

    With Me.Toolbar1
        .Style = tbrFlat
         With .Buttons
            .Add Caption:="MACROS", Style:=tbrDropdown
            .Add Caption:="TRIER", Style:=tbrDropdown
            With .Item(1)
                .ButtonMenus.Add Text:="Macros OUI"
                .ButtonMenus.Add Text:="Macros NON"
            End With
             With .Item(2)
                .ButtonMenus.Add Text:="tri_CltsN°"
                .ButtonMenus.Add Text:="tri_Packs"
                .ButtonMenus.Add Text:="tri_Prix_Pack"
                .ButtonMenus.Add Text:="tri_Clt"
                .ButtonMenus.Add Text:="tri_Cx"
            End With
        End With
    End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Array("MACROS", "    Macros OUI", "    Macros NON", "TRIER", "    tri_CltsN°", "    tri_Packs", "    tri_Prix_Pack", "    tri_Clt", "    tri_Cx")
End Sub