XL 2021 Saisie de lignes multiples dans un formulaire

Private Const mCONTEXT_MENU_NAME = "myRightClickListbox"
Private m_clsContextMenu As CContextMenu

Private Sub CommandButton1_Click()
 'code pour ajout dans tableau structuré
End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
Application.CommandBars(mCONTEXT_MENU_NAME).ShowPopup
End If
End Sub

Private Sub UserForm_Initialize()
' remove any previous instance
On Error Resume Next
Application.CommandBars(mCONTEXT_MENU_NAME).Delete
On Error GoTo 0
Set m_clsContextMenu = New CContextMenu
With CommandBars.Add(mCONTEXT_MENU_NAME, Position:=msoBarPopup)
.Controls.Add(Type:=msoControlButton).Caption = "Ajouter élément"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Supprimer élément"
.BeginGroup = True
End With
Set m_clsContextMenu.ContextMenu_Add = .Controls(1)
Set m_clsContextMenu.ContextMenu_Remove = .Controls(2)
Set m_clsContextMenu.LBox = Me.ListBox1
End With
'ListBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8)
End Sub

Private Sub UserForm_Terminate()
Application.CommandBars(mCONTEXT_MENU_NAME).Delete
End Sub

Public LBox As MSForms.ListBox
Public WithEvents ContextMenu_Add As CommandBarButton
Public WithEvents ContextMenu_Remove As CommandBarButton

Private Sub ContextMenu_Add_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Dim elem
elem = InputBox("Entrez votre élément :", "Ajouter élément", , _
                UserForm2.Left / 0.75 * 15, _
               (UserForm2.Top + UserForm2.Height) / 0.75 * 15)
If elem <> "" Then LBox.AddItem elem
End Sub
Private Sub ContextMenu_Remove_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
If LBox.ListIndex >= 0 Then
LBox.RemoveItem LBox.ListIndex
End If
End Sub

Sub Ajout_lignes()
Dim e, a(), n, lig&
Do
    e = Application.InputBox("Nom " & n + 1 & " :", "Ajout lignes")
    If e = False Then Exit Do
    ReDim Preserve a(n)
    a(n) = e
    n = n + 1
Loop
With [Tableau1] 'tableau structuré
    lig = .Rows.Count - (.Rows.Count > 1 Or .Cells(1) <> "")
    If n Then .Cells(lig, 1).Resize(n) = Application.Transpose(a)
End With
End Sub

Private Sub ListBox1_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    'le menu est généré au click droite dans la listebox
    ' et est supprimé immediatement au momment ou il disparait
    If Button = 2 Then 'si bouton droite
        Set bar = CommandBars.Add("menuf", msoBarPopup, , True)

        With bar.Controls.Add(msoControlButton)
            .Caption = "Ajouter"
            .OnAction = "Ajouter"
          End With

        With bar.Controls.Add(msoControlButton)
            .Caption = "Suprimer"
            .OnAction = "supprim"
         End With

        bar.ShowPopup
        CommandBars("menuf").Delete
    End If
End Sub

Option Explicit
 Sub Ajouter()
    UserForm1.ListBox1.AddItem InputBox("vous avez appuyé sur " & CommandBars.ActionControl.Caption & " pour ajouter", "ajouter")
End Sub


 Sub supprim()
    Dim index, i
    With UserForm1.ListBox1
        index = .ListIndex
        MsgBox "vous avez appuyé sur " & CommandBars.ActionControl.Caption & "pour supprimer " & .List(index)
        .RemoveItem (i)
    End With
End Sub

'menu contextuel avec le onAction redirigigé dans des pseudo events dans le  userform
'Auteur @jurassic pork
'remastered  par @patricktoulon(sub classing intra userform)

Option Explicit

Public WithEvents ContextMenu_Add As CommandBarButton
Public WithEvents ContextMenu_Remove As CommandBarButton
Public LeMe As Object
Const twips = 15
'event bouton ajouter
Private Sub ContextMenu_Add_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    Dim elem
    elem = InputBox("Entrez votre élément :", "Ajouter élément", , _
                     LeMe.Left / 0.75 * twips, _
                     (LeMe.Top + LeMe.Height) / 0.75 * twips)
    If elem <> "" Then LeMe.ListBox1.AddItem elem
End Sub

'Events bouton supprimer
Private Sub ContextMenu_Remove_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    With LeMe.ListBox1
        If .ListIndex >= 0 Then .RemoveItem .ListIndex
    End With
End Sub

Private Sub ListBox1_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    'le menu est généré au click droite dans la listebox
    ' et est supprimé immediatement au momment ou il disparait
    Dim Bar
    If Button = 2 Then 'si bouton droite
        Set Bar = CommandBars.Add("menuf", msoBarPopup, , True)

        'creation bouton dans menu
        With Bar.Controls.Add(msoControlButton): .Caption = "Ajouter": End With
        With Bar.Controls.Add(msoControlButton): .Caption = "Suprimer": End With

        'classemment intra classe userform
        With UserForm1
            Set .ContextMenu_Add = Bar.Controls(1)
            Set .ContextMenu_Remove = Bar.Controls(2)
            Set LeMe = Me
        End With

        Bar.ShowPopup
        CommandBars("menuf").Delete
    End If
    Exit Sub
    CommandBars("menuf").Delete
    On Error GoTo 0
End Sub