Bonjour,
Juste un conseil de méthode, sans entrer dans ton fichier.
1) Tu nommes la colonne A de ta base, en dynamique, les ajouts successifs y seront automatiquement inclus.
2) Tu mets en propriété RowSource de ta ListBox le nom de ta colonne A. Tu les retrouveras à chaque ouverture dans la ListBox.
3) Au choix d'un élément dans la ListBox, ListIndex+1 sera le numéro de ligne dans la plage nommée, donc tu appelles facilement les valeurs à mettre en TextBox. Supposons 4 TextBox : tb1 à tb4.
Au changement de valeur dans la ListBox :
n = ListBox1.ListIndex + 1
If n > 0 Then
For i = 1 To 4
Controls("tb" & i) = [NomA].Cells(n, i+1)
Next i
Else
'là tu effaces les TextBox, puisque pas de sélection
End If
Cordialement.