'// renvoie un tableau() de type Date
Private Function getDatesBetween(dStart As Date, dEnd As Date) As Date()
Dim i As Integer
Dim d As Date
If dStart > dEnd Then Exit Function
ReDim Dates(Int(dEnd - dStart)) As Date
For d = dStart To dEnd
Dates(i) = d
i = i + 1
Next
getDatesBetween = Dates
End Function
'// UTILISATION:
Dim i As Integer
Dim dt1 As Date
Dim dt2 As Date
Dim d() As Date
dt1 = "01/01/2006"
dt2 = "30/03/2006"
d = getDatesBetween(dt1, dt2)
'// CONTROLE dans une ListBox:
If Not (Not d) Then
List1.Clear
For i = 0 To UBound(d)
List1.AddItem d(i)
Next i
Else
List1.Clear
End If