Private Sub ListBox1_Click()
ligneEnreg = Me.ListBox1.Column(4)
For Z = 1 To nbCol
Me("textbox" & Z) = f.Cells(ligneEnreg, Z)
If Not f.Cells(ligneEnreg, 1).Comment Is Nothing Then
Me.Description.Value = f.Cells(ligneEnreg, 1).Comment.Text
Else
Me.Description.Value = ""
End If
Next Z
End Sub