Boucle en VBA

Bonjour,

Je suis actuellement en stage et j'ai réaliser des questionnaires sur le logiciel Excel en l'automatisant avec les commandes ActiveX. J'ai rajouter un bouton remise a zéro qui décoche tous mes boutons. J'ai montrer a mon professeur sauf qu'il aimerait que je réalise une boucle plutôt que d'énuméré tous les boutons... N'ayant jamais fait de VBA j'ai beaucoup de difficulté.

J'ai essayer cela :

Private Sub CommandButton1_Click()


    Dim Nombre As Integer
        Nombre = 1
    While Nombre <= 31
        OptionButton(Nombre).Value = 0
        Nombre = Nombre + 1
    Wend
End Sub

Sauf que quand je clique sur mon bouton, il y a une erreur de compilation. Quelqu'un saurait il comment faire ?

Merci d'avance pour votre aide