Problème boucle VBA

Bonjour, ;)

J'aimerais programmer un jeu sous vba s'affichant sur l'userform.
Il s'agit d'un running game un peu comme flappy birds.

J'ai cependant un problème au niveau de la boucle générale :
En gros voici l'algo de mon code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Dim dernierTampon as double Dim FPS as Integer Dim gameOver as Boolean Private Sub boucle() While gameOver=false If Timer-dernierTampon >=1/FPS Then 'Le code en dessous ne s'éxecute que toutes les trentièmes de secondes dernierTampon=Timer Call creerEnnemis Call controlerHeros Call deplacerEntites Call testerCollisions 'Teste les collisions et inverse le booleen gameOver si un ennemi a touché le heros End If Wend End Sub Private Sub UserForm_Initialize() dernierTampon=Timer FPS=30 gameOver=false Call boucle End Sub
J'ai simplifié l'algo à l'intérieur de la boucle car ce n'est pas ce qui fait buguer le programme.
Le programme freeze en entrant dans la boucle While infiniment, ("ne répond pas") et je n'ai aucun rendu visuel à l'écran.
Je bloque depuis quelques heures, j'ai cherché sur internet mais je n'ai rien trouvé. :?
Est-ce que quelqu'un aurait une solution ?

Merci d'avance