bonjour le fil,
avec vba
Sub test()
Dim aA, aB, Dict, j, r, ptr
Dim Nombre: Nombre = 25
aA = WorksheetFunction.Sequence(1, 37, 0) 'chiffres de 0 à 36
Set Dict = CreateObject("scripting.dictionary")
Do
ptr = ptr + 1
aB = aA
s = ""
For j = UBound(aB) To Application.Max(1, UBound(aB) - Nombre + 1) Step -1
r = WorksheetFunction.RandBetween(1, j)
s = s & "-" & aB(r)
aB(r) = aB(j)
Next
Dict(s) = Split(Mid(s, 2), "-")
Loop While Dict.Count < 2000 And ptr < 10000
Sheets("sheet1").Range("A1").Resize(Dict.Count, Nombre).Value = Application.Index(Dict.items, 0, 0)
End Sub