'--- Dans Général dim p, lastp as integer
Randomize etq: p=int((rnd*10)+1) 'Choisi aléatoirement un chiffre entre 1 et 10 if p=lastp then goto etq 'Test si p est identique au précédent lastp=p 'Enregistre p dans lastp, lastp qui contient le chiffre précédent msgbox "le nombre est : " & p