For ligne = 0 To ListBox_liste.ListCount - 1
[Tableau_Stock_Congel].ListObject.ListRows.Add
Dim R As Long
R = [Tableau_Stock_Congel].ListObject.ListRows.Count
[Tableau_Stock_Congel[Entrée le]].Rows(R) = CDate(Now())
[Tableau_Stock_Congel[Reference]].Rows(R) = Me.ListBox_liste.List(ligne, 0)
[Tableau_Stock_Congel[Lots]].Rows(R) = Me.ListBox_liste.List(ligne, 1)
[Tableau_Stock_Congel[Date Congel]].Rows(R) = Me.ListBox_liste.List(ligne, 2)
[Tableau_Stock_Congel[DLC]].Rows(R) = Me.ListBox_liste.List(ligne, 3)
[Tableau_Stock_Congel[Quantité]].Rows(R) = Me.ListBox_liste.List(ligne, 4)
[Tableau_Stock_Congel[Numéro Cadre]].Rows(R) = Me.ListBox_liste.List(ligne, 5)
[Tableau_Stock_Congel[Designation]].Rows(R) = Me.ListBox_liste.List(ligne, 6)
'''''
''''' le restant de ton code ci-dessous ( je ne l'ai pas compris )
'''''
Next