Private Sub UserForm_Activate()
For i = 1 To [A65000].End(xlUp).Row
Me.LISTE.AddItem Format(Cells(i, 1).Value, "hh:mm")
Next i
LISTE.ListIndex = 0
End Sub
Private Sub VALIDER_Click()
If ActiveCell.Column > 1 Then
ActiveCell.Value = Format(Me.LISTE, "hh:mm")
End If
Unload Me
End Sub
Private Sub ANNULER_Click()
Unload Me
End Sub