Ajouter plusieurs feuilles les une à la suite de l'autre VBA

Bonjour,

J'essaye de créer plusieurs feuilles Excel (au max 3) les une à la suite de l'autre à l'aide d'un bouton sous VBA. J'ai essayer avec ceci mais ça ne marche :


Private Sub cmd_enregistrer_Click()

Dim C As Integer

While C < 3
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Compétition" & Format(C, "00")
C = C + 1
Wend

End Sub

Donc ce que je voudrais c'est ajouter une première feuille nommée Compétition 01 puis en cliquant une deuxième fois sur le bouton ajouter une deuxième feuille nommée Compétition 02 ... alors que là ça les ajoute toutes les trois d'un seul coup.

Merci d'avance pour vos réponses.