Private Sub ListBox1_Click()
Dim L As Long
L = ListBox1.ListIndex + 5
TextBoxDateDeSortie = Cells(L, 1)
TextBoxReference = Cells(L, 2)
TextBoxVersion = Cells(L, 3)
TextBoxIndice = Cells(L, 4)
TextBoxSup = Cells(L, 5)
TextBoxDesignationProduit = Cells(L, 6)
TextBoxCasier = Cells(L, 7)
TextBoxDateEnregistrement = Cells(L, 8)
TextBoxEnregistrePar = Cells(L, 9)
TextBoxMatriculeEnregistrement = Cells(L, 10)
End Sub