Microsoft 365 VBA données ne remontent pas correctement dans Labels

Private Sub ListView_Rech_MatAncien_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim LstVItem As Object
Dim Tb()
Tb = Range("t_Nouvelle_Affect").Value 'on va récupérer la base de Données dans feuille "Nouvelle Affectation"
With Me
 With .ListView_Rech_MatAncien 'Avec la ListView
 StrSearch = Item.Text 'on récupère la référence de la ligne sélectionnée
 End With
     With .ListView_Rech_MatNV 'avec la ListView
             .ListItems.Clear 'on l'éfface
    For Lgn = 1 To UBound(Tb) 'pour chaque ligne du tableau
     If Tb(Lgn, 1) = StrSearch Then 'on compare les données de la première colonne du tableau avec la variable "StrSearch"
      Set LstVItem = .ListItems.Add(, , Tb(Lgn, 1)) 'on colle la valeur dans la première colonne due la Listview
         With LstVItem 'avec cette ligne ainsi créée
             .ListSubItems.Add , , Tb(Lgn, 2) 'On colle dans la deuxième Conne
             .ListSubItems.Add , , Tb(Lgn, 3) 'Idem 3è colonne
             .ListSubItems.Add , , Tb(Lgn, 4)
             .ListSubItems.Add , , Tb(Lgn, 5)
             .ListSubItems.Add , , Tb(Lgn, 6)
             .ListSubItems.Add , , Tb(Lgn, 7)
             .ListSubItems.Add , , Tb(Lgn, 8)
             .ListSubItems.Add , , Tb(Lgn, 9)
             .ListSubItems.Add , , Tb(Lgn, 10)
             .ListSubItems.Add , , Tb(Lgn, 11)
             .ListSubItems.Add , , Tb(Lgn, 12)
             .ListSubItems.Add , , Tb(Lgn, 13)
             .ListSubItems.Add , , Tb(Lgn, 14)
             .ListSubItems.Add , , Tb(Lgn, 15)
             .ListSubItems.Add , , Tb(Lgn, 16)
             .ListSubItems.Add , , Tb(Lgn, 17)
         End With
     End If
    Next Lgn
    End With
End With
End Sub

Private Sub ListView_Rech_MatAncien_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim LstVItem As Object
Dim Tb(), Col As Byte
Tb = Range("t_Nouvelle_Affect").Value 'on va récupérer la base de Données des
With Me
 With .ListView_Rech_MatAncien
 StrSearch = Item.Text 'on récupére la référence de la ligne sélectionner
 End With
     With .ListView_Rech_MatNV 'avec la ListView
          .ListItems.Clear 'on l'éfface
    For Lgn = 1 To UBound(Tb) 'pour chaque ligne du tableau
     If Tb(Lgn, 1) = StrSearch Then 'on compare les données de la première colonne du tableau avec la variable "StrSearch"
      Set LstVItem = .ListItems.Add(, , Tb(Lgn, 1)) 'on colle la valeur dans la première colonne due la Listview
         With LstVItem 'avec cette ligne ainsi créée
             For Col = 2 To UBound(Tb, 2)'Pour chaque colonne du tableau à partir de la deuxième
                    .ListSubItems.Add , , Tb(Lgn, Col) 'On colle dans les Colonnes
             Next Col
         End With
     End If
    Next Lgn
    End With
End With
End Sub

 .View = lvwReport
 .LabelEdit = lvwManual 'Ici
 .FullRowSelect = True

Private Sub ListView_Rech_MatAncien_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim LstVItem As Object
Dim Tb(), Col As Byte
Tb = Range("t_Nouvelle_Affect").Value 'on va récupérer la base de Données des
With Me
 With .ListView_Rech_MatAncien
 StrSearch = Item.Text 'on récupére la référence de la ligne sélectionner
 End With
     With .ListView_Rech_MatNV 'avec la ListView
          .ListItems.Clear 'on l'éfface
    For Lgn = 1 To UBound(Tb) 'pour chaque ligne du tableau
     If Tb(Lgn, 1) = StrSearch Then 'on compare les données de la première colonne du tableau avec la variable "StrSearch"
      Set LstVItem = .ListItems.Add(, , Tb(Lgn, 1)) 'on colle la valeur dans la première colonne due la Listview
         With LstVItem 'avec cette ligne ainsi créée
         For Col = 2 To UBound(Tb, 2)
             .ListSubItems.Add , , Tb(Lgn, Col) 'On colle dans les Colonnes
         Next Col
         End With
     End If
    Next Lgn
    ' Ci dessous la mise a la hauteur de la ListView en fonction du Nombre de Lignes
        .Height = IIf(.ListItems.Count = 0, 234, IIf(.ListItems.Count = 1, 13.75 * 2, 13.2 * (.ListItems.Count + 1)))
    End With
End With
End Sub