Do loop ne marche pas ? Help merci

[Sandres]

Bonjour
----------
Sub RandomPlage(Plage As Range, Optional Max As Long = 0)
Dim Arr(), ArrTmp, temp, idx As Long, i As Long, j&

Randomize
ArrTmp = Plage.Value

'Tri aléatoire du tableau
For i = Plage.Rows.Count To 1 Step -1
idx = Int(Rnd() * i) + 1
temp = ArrTmp(i, 1)
ArrTmp(i, 1) = ArrTmp(idx, 1)
ArrTmp(idx, 1) = temp
j = Plage.Rows.Count - i
If Max > 0 And j = Max Then Exit For
ReDim Preserve Arr(j)
Arr(j) = ArrTmp(i, 1)
Next i

Plage.Range("e1:e" & UBound(Arr) + 1).Value = _
Application.Transpose(Arr)

End Sub 'fs

'exemple
'pour renvoyer en E1:e20 les 20 premières valeurs, après tri, de la
'plage A1:A53 :
'--------------------------------
Sub test()
Do Until g22 = 7

RandomPlage Range("A1:A53"), 20

Loop

'Recuperer les valeurs calculées
Range("B42:e42").Copy
Range("B" & ligne + 46).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
For rangee = 6 To 25
With Cells(ligne + 46, rangee)
.Value = Cells(rangee - 5, 5)
End With
Next rangee

End Sub

------------------------------------------------------
SAndres

 

[Sandres]

le fichier en+

 

[Sandres]

le fichier en zip