Private Sub Liste_Mois_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Liste_Mois.Clear
Liste_Mois.AddItem "Janvier"
Liste_Mois.AddItem "Février"
Liste_Mois.AddItem "Mars"
Liste_Mois.AddItem "Avril"
Liste_Mois.AddItem "Mai"
Liste_Mois.AddItem "Juin"
Liste_Mois.AddItem "Juillet"
Liste_Mois.AddItem "Aout"
Liste_Mois.AddItem "Septembre"
Liste_Mois.AddItem "Octobre"
Liste_Mois.AddItem "Novembre"
Liste_Mois.AddItem "Décembre"
End Sub