Aide VBA 'Erreur 13' Incompatibilité

Bonjour, après avoir travaillé sur un tableau qui classe automatiquement des équipes de foot en fonction des points, des buts marqués, etc... j'ai créé une fonction en ET et OU pour détecter des erreurs de classement d'équipe de foot après génération aléatoire de scores.

J'aimerais lancer une macro qui génère des valeurs aléatoires en continu jusqu'à ce qu'une erreur soit découverte, c'est à dire dès que ma cellule "TEST" contenant la fonction en ET et OU affiche "VRAI" (dans l'idéal elle devrait tourner à l'infini si il n'y a pas d'erreurs)

J'ai essayé ceci :

"
Sub Macro1()
'
Do
If "U6" = False Then
Range("B2").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("B2").Select
Else
End
End If

Loop

End Sub"

Je sais que ce n'est pas bon mais je n'ai aucune idée de comment m'y prendre. Pour ceux qui s'interrogent, la partie
Range("B2").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("B2").Select"
permet de générer des nouvelles valeurs aléatoires en affectant un +1 sur une cellule inutilisée de mon tableau.

Merci d'avance pour votre aide,

Thomas