j'ai rajouter comme ça mais ça ne fonctionne pas :
Private Sub Workbook_Open()
Dim ListeMois, NoMois%, Ajoute%
' Liste des mois, le premier est "rien" car l'array commence en 0, Décembre est doublé car on reste sur ce mois si on est en décembre
ListeMois = Array("Rien", "Janvier"...