Private Sub CommandButton2_Click()Mais c'est peut-être "autre chose", qui te fait défaut .
For i = 1 To 10
ListBox1.AddItem DateSerial(2014, 2, i)
Next
End Sub
ListBox1.Clearfera ... ce que tu verras....
For i = DateValue("01/10/2014") To DateValue("10/11/2014")
ListBox1.AddItem DateValue(i)
Next
Dim toto As Date
toto = "01/9/2014"
Do Until toto > "12/11/2014"
ListBox1.AddItem toto
toto = toto + 1
Loop
Dim MesDates(300) As Date, i As Integer For i = 0 To 300 'dates du 01/01/2014 au 28/10/2014 MesDates(i) = CDate(i + CDate("01/01/2014")) Next ListBox1.List = MesDates