Je voudrais remplir une listbox avec des valeurs de 1 à 52 si l'on a cliqué sur un bouton semaines ou avec des valeurs 1à 12 si on clique sur un bouton mois.

Avec sur une feuille la ListBox et 2 boutons options Dans le module de la feuille :

Private sub OptionButton1_Click() 'les semaines
 ListBox1.Clear
 For x = 1 To 52
 ListBox1.AddItem ("Semaine " & x)
 Next
 end sub

Private sub OptionButton2_Click() 'les mois
 ListBox1.Clear
 For x = 1 To 12
 ListBox1.AddItem (Format(DateSerial(0, x, 1), "mmmm"))
 Next
 end sub