Private Sub ListBox1_Click() 'au clic dans la ListBox
If traitOK = True Then Exit Sub
For y = 1 To 11
Me.Controls("TextBox" & y).Value = ListBox1.List(ListBox1.ListIndex, y - 1)
Next y
TextBox3.Text = Application.WorksheetFunction.Text(CDbl(TextBox3.Text), "[hh]:mm")
End Sub