Ce dont je veux être sur est que la fonction rnd ne me génère pas deux fois consécutives la même valeur.Ce qui à priori à l'air d'être le cas
n = Int((600 - 560 + 1) * Rnd + 560)
Do
n = Int((600 - 560 + 1) * Rnd + 560)
Loop Until n <> Feuil4.Cells(i + 3, 5) Or i = 0