Me.Hide
For ii = 1 To 100 ' barre progression
Call UserForm_BarreProgression.BarreProgression("Module_test", 100, ii) ' barre progression
For x = 1 To 10000
For Each Target In [AA2,AB2,AC2]
Target(2).Resize(Rows.Count - Target.Row).ClearContents 'RAZ
nlig = Int(Val(Target(0, 1))) 'new
If nlig > 1 Then
With Target(2, 0).Resize(nlig)
tablo = .Value 'mémorise
.Formula = "=RAND()"
.Columns(2) = tablo
.Resize(, 2).Sort .Cells, Header:=xlNo 'tri
.Value = tablo 'restitution
End With
End If
Next
If Range("AH2").Value = Range("Z1").Value Then
Range("AI2").Value = x
Exit Sub
End If
Next x
Next ii ' barre de progresion
Me.Show