Boucle sautée

Bonjour,

voila, cela fait maintenant plusieurs heures que je suis bloqué avec un problème de boucle qui ne "s'active" pas, j'ai regarder un peu partout sur internet pour me dépanner, mais je n'ai rien trouver. je vais donc mettre le code afin de vous expliquer ensuite mon problème:

Option Explicit
Private Sub CB_calcul_du_match_Click()
Dim J1 As Integer
Dim J2 As Integer
Dim P1 As Integer
Dim P2 As Integer
P1 = 0
P2 = 0
TB_J1P = 0
TB_J2P = 0
J1 = Rnd() * TB_joueur1
J1 = Round(J1, 0)

J2 = Rnd() * TB_joueur2
J2 = Round(J2, 0)

While 4 > TB_J1P And TB_J2P
If J2 < J1 Then
TB_J1P.Value = P1 + 1
Else
TB_J2P.Value = 1 + P2
End If
Wend
End Sub

d'abord le contexte:

je veus faire un programme qui calcul de manière aléatoire et en direct les resultats d'un match de tennis avec un taux de chance de marquer des points pour les deux joueurs définis par l'utilisateur. exemple: joueur1:7, joueur2: 4.
à chaque calcul, joueur 1 et 2 auront un "score" aléatoire compris entre 0 et 7(1) et 0 et 4(2), et celui qui aura la valeur la plus grande, marque un point.
je pose les résultats directement sur une userform.

maintenant le probleme:

il s'agit de la fonction while, lorsque je passe le programme avec F8 j'ai constaté que je passe directement le la ligne while à la ligne end sub. Lorsque je lance la macro, TB_J1P et TB_J2P(les noms des textbox acceuillant les scores) sont toujours à 0.

merci d'avance, en esperant que vous puissiez m'aider à résoudre ce problème.