Microsoft 365 Duplication de tableau après utilisation d'un Userform

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
 
HideBar Me
Dim Rng, i, c
 'Set f = Sheets("Cartes Alerte émises") 'isolé double Emploi
 'Set Rng = f.Range("A2:V" & f.[A65000].End(xlUp).Row)     ' à adapter 'isolé double Emploi
 Set f = Sheets("Cartes Alerte émises")
 Set Rng = f.Range("A2:V" & f.[A65000].End(xlUp).Row)     ' à adapter
 NomTableau = "Tableau1"
 ActiveWorkbook.Names.Add Name:=NomTableau, RefersTo:=Rng                                     ' A adapter
 NbCol = Range(NomTableau).Columns.Count
 '---- A adapter
 TabBD = Range(NomTableau).Resize(, NbCol + 1).Value              ' Array: + rapide

With Range("t_BDD").ListObject 'Nom du Tableau Structuré"t_BDD" avec ce tableau
  TabEntetes = .HeaderRowRange.Value 'On récupére la Ligne d'entetes
 If Not .DataBodyRange Is Nothing Then 'Si la Base de Données n'est pas Vide
 
  TabBD = .Range.Resize(, .ListColumns.Count + 1) 'On récupére les données du Tableau Structuré "t_BDD" en Y ajoutant une colonne dans un Tableau Temporaire "TabBD"

 End If
 End With
 For i = 1 To UBound(TabBD)'pour Chaque ligne du tableau temporaire'
    TabBD(i, UBound(TabBD, 2)) = i 'On récupére l'index de la Ligne source dan sla Colonne Ajoutée
 Next i

 NomTableau = "Tableau1"
 NbCol = Range(NomTableau).Columns.Count  '---- A adapter
 TabBD = Range(NomTableau).Resize(, NbCol + 1).Value              ' Array: + rapide
 For i = 1 To UBound(TabBD): TabBD(i, NbCol + 1) = i: Next i ' No enregistrement
 Me.ListBox1.List = TabBD
 Me.ListBox1.ColumnCount = NbCol + 1
 Me.ListBox1.ColumnWidths = "35;44;65;45;75;18;13;120;140;45;65;140;45;140;0;0;0;0;0;0;0;0"
 ColCombo = Array(21, 20, 4, 11, 16)                                   ' A adapter (1 à 6 colonnes maxi)
 colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22)  ' colonnes à interroger (adapter)
 '----
 NcolInt = UBound(colInterro) + 1
 '-- colTri
 Me.ComboTri.List = Application.Transpose(Range(NomTableau).Offset(-1).Resize(1))  ' Ordre tri

'puis le reste : couleur et désactivation, ... des txtb et cbx et enfin'

Affiche

Sub Affiche()
  Dim Tbl()
  Dim cbx1, cbx2, cbx3, cbx4, cbx5, cbx6, n, Cb, i, c
  cbx1 = Me.ComboBox1: cbx2 = Me.ComboBox2:  cbx3 = Me.ComboBox3:  cbx4 = Me.ComboBox4: cbx5 = Me.ComboBox5
  n = 0
  Cb = Array(1, 1, 1, 1, 1)
  For i = 0 To UBound(ColCombo): Cb(i) = ColCombo(i): Next i
  For i = 1 To UBound(TabBD)
    If TabBD(i, Cb(0)) Like cbx1 And TabBD(i, Cb(1)) Like cbx2 _
       And TabBD(i, Cb(2)) Like cbx3 And TabBD(i, Cb(3)) Like cbx4 And TabBD(i, Cb(4)) Like cbx5 Then
        n = n + 1: ReDim Preserve Tbl(1 To NbCol + 1, 1 To n)
        c = 0
        For c = 1 To NbCol: Tbl(c, n) = TabBD(i, c): Next c
        'Tbl(6, n) = Format(TabBD(i, 6), "hh:mm")
        Tbl(c, n) = TabBD(i, NbCol + 1)
    End If
  Next i
  If n > 0 Then
     Me.ListBox1.Column = Tbl
  Else
     Me.ListBox1.Clear
  End If
  Gchoix
End Sub