Function Alea_N_Min_Max(ByVal combien&, ByVal Min&, ByVal Max&)
Dim i&, j&, k&, n&, aux
If Min > Max Or combien <= 0 Or combien > Abs(Min - Max) + 1 Then ReDim r(1 To 1, 1 To 1): r(1, 1) = CVErr(xlErrRef): Alea_N_Min_Max = r: Exit Function
n = (Max - Min + 1): Randomize
If combien = 1 Then ReDim t(1 To 1, 1 To 1): t(1, 1) = "": Alea_N_Min_Max = Min + Int(n * Rnd): Exit Function
ReDim t(Min To Max, 1 To 1): For i = Min To Max: t(i, 1) = i: Next
For j = 1 To 5: For i = Min To Max: k = Min + Int(n * Rnd): aux = t(i, 1): t(i, 1) = t(k, 1): t(k, 1) = aux: Next i, j
ReDim r(1 To combien, 1 To 1): For i = 1 To combien: r(i, 1) = t(Min + i - 1, 1): Next
Alea_N_Min_Max = r
End Function