XL 2019 Alimenter plusieurs TEXTBOX avec la même LISTBOX

'
' IMPORTANT variable à mettre en tête de module du userform
Dim SecondClick As Boolean ' Faux par défaut

Private Sub Lstprestation_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If lstprestation.ListIndex = -1 Then Exit Sub ' si pas de choix dans listbox sortir
    If SecondClick Then
        'Alimenter les seconds textbox
    Else
        'Alimenter les premiers textbox
    End If
    '
    ' inverser la condition
    SecondClick = Not SecondClick
End Sub

Dim DbClickCount As Integer

Private Sub Lstprestation_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If lstprestation.ListIndex = -1 Then Exit Sub ' si pas de choix dans listbox sortir
    DbClickCount = cbclickcount + 1
    Select Case cbclickcount
        Case 1
            ' Alimenter les textBox 1 et 2
        Case 2
            ' Alimenter les textBox 3 et 4
        Case 3
            ' Alimenter les textbox 5 et 6
        Case 4
            ' Alimenter les textbox 7 et 8
            'IMPORTANT :   remettre le compteur à 0
            DbClickCount = 0
    End Select
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim a, b
Static n
a = Array("TextBox1", "TextBox3", "TextBox5", "TextBox7")
b = Array("TextBox2", "TextBox4", "TextBox6", "TextBox8")
With ListBox1
    Me(a(n)) = .Columns(0)
    Me(b(n)) = .Columns(1)
End With
n = n + 1
If n = 4 Then n = 0
End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim a, i, Z&
    a = Array("1", "3", "5", "7")
    With ListBox1
        For i = 1 To 8: Me.Controls("TextBox" & i) = "": Next
        For i = 0 To .ListCount - 1
            If .Selected(i) And Z < 4 Then
                Me.Controls("Textbox" & a(Z)) = .List(i, 0): Me.Controls("Textbox" & a(Z) + 1) = .List(i, 1): Z = Z + 1
            Else
                .Selected(i) = False
            End If
        Next
    End With

End Sub

Dim a, b, n As Byte 'mémorise les variables

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = Array("TextBox1", "TextBox3", "TextBox5", "TextBox7")
b = Array("TextBox2", "TextBox4", "TextBox6", "TextBox8")
With ListBox1
    Me(a(n)) = .Column(0)
    Me(b(n)) = .Column(1)
End With
n = IIf(n = 3, 0, n + 1)
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 Exit Sub 'Button = 2 => clic droit
ListBox1.ListIndex = -1 'désélectionne
If Not IsArray(a) Then Exit Sub
n = IIf(n = 0, 3, n - 1)
Me(a(n)) = ""
Me(b(n)) = ""
End Sub

With Sheets("BD").Range("A2").CurrentRegion

With Sheets("BD").[A2].CurrentRegion