XL 2019 Récupérer multisélection d'une listbox dans des variables

' cette variable si utilisée ailleurs que dans le commandbutton_click doit etre global module (déclarée en haut de module userform)
Dim Fact()
Private Sub CommandButton1_Click()
Dim i As Integer,e&
ReDim Fact(1 To 1)
'récupération des N° de facture
For i = 0 To ListBox3.ListCount - 1
    If ListBox3.Selected(i) = True Then
       e = e + 1: ReDim Preserve Fact(1 To e)
        Fact(UBound(Fact)) = ListBox3.List(i, 0)
    End If
Next i

MsgBox Join(Fact, vbCrLf)

End Sub

Private Sub UserForm_Activate()
ListBox3.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
End Sub

Option Explicit

' Le tableau des éléments sélectionnés s'appelle Choisis()
' Si vous voulez l'utiliser hors du Userfrom, déclarez Public Choisis() dans un module
' les variables sélectionnées sont dans les éléments 1 à Ubound(Choisis)
' le nombre d'éléments selectionnés est Ubound(Choisis)
' si Ubound(Choisis) est zéro, alors aucun élément n'a été sélectionnés
' pour parcourir tous les élément sélectionnés, on boucle sur le tableau Choisis()
'     entre les indices 1 à Ubound(Choisis) --> voir procédure affiche

Dim Choisis()

Private Sub CommandButton1_Click()     'stockage des élément sélectionnés
   Dim i As Long
   ReDim Choisis(0 To 0)  'on initialise le tableau avec une borne inférieure égale à zéro
   For i = 0 To ListBox1.ListCount - 1 'boucle sur la listbox
      If ListBox1.Selected(i) Then
         ReDim Preserve Choisis(0 To UBound(Choisis) + 1)    'on augmente d'une unité la taille du tableau Choisis()
         Choisis(UBound(Choisis)) = ListBox1.List(i, 0)    'place l'élément sélectionné dans le dernier élément du tableau
      End If
   Next i
   Afficher
End Sub

Sub Afficher()    'utilisation des éléments sélectionnés stockés dans Choisis()
Dim i As Long, s As String
   If UBound(Choisis) = 0 Then      'Le nombre d'élément sélectionné est Ubound(choisis)
      MsgBox "Aucun élément de la listbox n'a été sélectionné."
   Else
      For i = 1 To UBound(Choisis)     'boucle sur les éléments sélectionnés - à partir de l'indice 1 et pas zéro
         s = s & vbLf & Choisis(i)
      Next i
      MsgBox "Nombre d'élément sélectionné = " & UBound(Choisis) & s
   End If

End Sub

        Dim i As Integer
        ReDim Num_Fact_(0 To 0)
            If CheckBox_Facture_Fusionnée = True Then
                For i = WsFact.Range("A65536").End(xlUp).Row To 2 Step -1
                    ReDim Preserve Num_Fact_(0 To UBound(Num_Fact_) + 1)
                    If Cells(i, "A").Value = TextBox_Code_Facture.Value Then Num_Fact_(UBound(Num_Fact_)) = Cells(i, "AM")
                Next i
                For i = WsFact.Range("A65536").End(xlUp).Row To 2 Step -1               
                    If Cells(i, "A").Value = Num_Fact_1 Then Cells(i, "AL") = False
                    If Cells(i, "A").Value = Num_Fact_2 Then Cells(i, "AL") = False
                    etc....   'Code a modifier en utilisant le comparatif de contenu de tableau
                Next i
            End If

   For i = WsFact.Range("A65536").End(xlUp).Row To 2 Step -1
      For k = 1 To UBound(choisis)
         If Cells(i, "A").Value = choisis(k) Then Cells(i, "AL") = False: Exit For
      Next k
   Next i

Dim sep As String, s As String
   sep = Chr(1): s = sep & Join(choisis, sep) & sep
   For i = WsFact.Range("A65536").End(xlUp).Row To 2 Step -1
      If InStr(1, s, sep & Cells(i, "A") & sep, vbTextCompare) > 0 Then Cells(i, "AL") = False
   Next i