XL 2021 PB Alimentation Tableau structuré depuis un ListBox

 Lst_Derlig = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(Rows.Count, 1).End(xlUp).Row

Lst_Derlig = Cells(Rows.Count, 1).End(xlUp).Row + 1

Set NewLigne= .ListRows.Add

Sub Btn_Valid_Click()
    Dim LigneSource As ListRow
    Dim LigneCible As ListRow
    Dim i As Long, j As Long
    Dim NumUnique As String
    Dim Trouve As Boolean
With Range("Tbl_INVENDUS").ListObject
    If Not .DataBodyRange Is Nothing Then
    ' Parcourir les éléments sélectionnés dans la ListBox
    For i = 0 To Vte_Inv.LB_Inv.ListCount - 1
        If Vte_Inv.LB_Inv.Selected(i) Then
            ' Récupérer le numéro dans la première colonne
            NumUnique = Vte_Inv.LB_Inv.List(i, 0)
            
            ' Rechercher la ligne correspondante dans "Tbl_INVENDUS"
            Trouve = False
            For j = 1 To .ListRows.Count
                If .ListRows(j).Range.Cells(1, 1).Value = NumUnique Then
                       Trouve = True
                    
                    ' Ajouter une nouvelle ligne à "Tbl_LISTE"
                    Set LigneCible = Range("Tbl_LISTE").ListObject.ListRows.Add
                    
                    ' Copier les données de "Tbl_INVENDUS" vers "Tbl_LISTE"
                   Set LigneSource = .ListRows(j)
                    LigneCible.Range.Value = LigneSource.Range.Value
                    
           Vte_Inv.LB_Inv.Selected(i) = False '----Ici
                    
                    Exit For
                End If
            Next j
            ' Si le numéro unique n'a pas été trouvé
            If Not Trouve Then
                MsgBox "Numéro " & NumUnique & " introuvable dans Tbl_INVENDUS.", vbExclamation
            End If
        End If
    Next i
  End If
End With
End Sub

Function Charg_Invendus()

'   Chargement de la ListBox depuis la feuille "INVENDUS"

Dim lastRow As Long
Dim dataRange As Range
Dim rowData As Variant
Dim i As Long
    
LB_Inv.ColumnCount = 2
LB_Inv.ColumnWidths = "80;350"
Sheets("INVENDUS").Activate

    ' Ligne suivante rajoutée
    ActiveSheet.ListObjects("Tbl_INVENDUS").Range.AutoFilter Field:=11, _
        Criteria1:=Array("Erreur", "Manquant", "Rechercher dans magasin", "Voir avec le Vide-grenier", "Vente abandonnée", "="), Operator:=xlFilterValues

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    lastRow = lastRow - 1           ' Eviter d'afficher une dernière ligne vide
    Set dataRange = Range("A2:B" & lastRow)
    ReDim rowData(1 To lastRow, 1 To 2)
        For i = 1 To lastRow
                rowData(i, 1) = dataRange.Cells(i, 1).Value
                rowData(i, 2) = dataRange.Cells(i, 2).Value
        Next i
    LB_Inv.List = rowData
End Function