Remplir un combobox dans un usf

Bonjour à tous les membres du forum,

étant donné que je n'ai pas touché à Excel depuis bien longtemps, je suis aujourd'hui rouillé. C'est pourquoi je vous demande votre aide.

J'ai, dans un userform (usf), 3 combobox qui me servent à entrer une date ; le premier, le jour, le deuxième, le mois et le troisième, l'année.

Les deux premiers sont remplis ainsi :

Me.cbo_jour.List = Array(1, 2, 3, 4, 5, ..., 27, 28, 29, 30, 31)

Me.cbo_mois.List = Array("janvier", "février", "mars", ..., "novembre", "décembre")

Pour le troisième, les années, je souhaite l'avoir ainsi : l'année en cours, l'année en cours -1, l'année en cours -2, etc. Je souhaite aller jusqu'à "l'année en cours -5".

De cette façon, cette année, j'aurai : 2010, 2009, 2008, 2007, 2006 et 2005.

L'année prochaine, j'aurai : 2011, 2010, 2009, 2008, 2007 et 2006.

Comment puis-je remplir mon combobox pour respecter cette condition?

Merci pour votre aide.

bonjour

Private Sub UserForm_Initialize()
Dim annee As Integer
annee = Year(Date)
For cptr = 0 To 5
    cbo_annee.AddItem annee - cptr
Next
cbo_annee.ListIndex = 0
End Sub