Problème de boucle

Bonjour à tous,

Nous avons dû créer un projet sur visual basic en groupe et devons le rendre pour le 30 décembre. Je précise que c'est la première fois que nous utilisons ce programme.
Nous avons fait un bowling et tout marchait très bien or maintenant quand j'ouvre ma page excel avec le jeu le bouton start qui permet de faire bouger la boule de droite à gauche ne marche pas systématiquement. Il y a quelques heures quand j'ai ouvert mon programme il marchait et maintenant il ne marche plus alors que mes autres boutons fonctionnent parfaitement.
Ceci avec des contrôle de formulaires donc affectés des macros.

Nous avions tout fait avec des contrôles activeX mais à chaque ouverture du programme, les boutons changeait de noms (si quelqu'un peut m'expliquer pourquoi) donc j'ai tout refait avec des macros (contrôles de formulaire) et là juste le bouton start qui fait des caprices.
Ce bouton permet aussi de replacer les quilles et la boule ( avec leurs coordonnées) et ceci fonctionne mais la boule ne bouge pas! Donc j'en ai conclut qu'il y a un problème avec la boucle, mais puisqu'elle marche parfois je ne comprend pas.

J'ai tenté de le faire en userform, mais toujours le même problème ! Le bouton start qui marche 1 fois sur 2 !

Je ne comprend vraiment pas car notre code me semble bon...
S'il vous plait, si quelqu'un peut m'aider ce serait vraiment génial car je suis complètement perdu là!

Je vous envoie la boucle du bouton qui semble poser problème :

Public score As Integer
Public bonj As Integer


Sub start  ()
  
'là il y a normalement tout le code pour placer les quilles et la boule  


 bonj = 0           'utile pour sortir de la boucle
            secondes = 0.002           'vitesse de la boule
        
       
   For ii = 1 To 3             'répéter l'action 3 fois
        
            For i = 1 To 443 Step 3
                Timer_avant = Timer
                
                     Do While (Timer < Timer_avant + secondes) And bonj = 0
                         DoEvents
                     Loop
                
              Sheets("Feuil1").Shapes("BOULE").Left = 443 - i
                'la boule se déplace a vitesse constante vers sa position finale
         
           Next

 
            For i = 1 To 443 Step 3
                Timer_avant = Timer
                
                      Do While (Timer < Timer_avant + secondes) And bonj = 0
                          DoEvents
                      Loop
    
           Sheets("Feuil1").Shapes("BOULE").Left = 0 + i
                      'la boule revient de la meme facon à sa position de départ


          Next
    Next

'CommandButton1.Visible = False
'je ne sais pas comment rendre des boutons issuent de contrôles de formulaire invisibles..

End Sub