on réalise ntirage (ntirage<=8)
Redim donnée(1 to 8)
redim résultats (1 to ntirage)
'on stocke les valeur dans donnée
for i =1 to ntirage
'on choisit aléatoirement qu'elle valeur du vecteur donnée sera tiré
n=Int((ubound(donnée)- 1+ 1) * Rnd + 1)
'on récupoère le ième résultat
résultats(i)= donnée(n)
'on copie les donnée qui n'ont pas été tiré dans le tableau temporaire
redim temporaire(ubound(donée-1)
for j = 1 to n
temporaire(j)=donnée(j)
next j
for j = n to ubound(donnée)
temporaire(j-1)=donnée(j)
next j
'temporaire contient toutes les donnée qui n'ont pas encore été tiré
redim donnée(ubound(temporaire))
'tu copie les valeur de temporaire dans donnée
donnée=temporaire 'ca ne devrais pas fonctionner met le bon code
next i