Sub Tirage1()
Dim i&, j&, k&, m&, t$(1 To 1000), nbOK&, SomCombi&, NbrCombi&, aux$
SomCombi = Range("b1"): NbrCombi = Range("b2")
' stocker dans t tous les 4uplets à somme égale à SomCombi
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For m = 0 To 9
If i + j + k + m = SomCombi Then
nbOK = nbOK + 1
t(nbOK) = i & j & k & m
End If
Next m: Next k: Next j: Next i
Range("d:d").ClearContents
' tirer NbrCombi au hasard et les afficher en colonne D
If nbOK > 0 Then
If nbOK < NbrCombi Then m = nbOK Else m = NbrCombi
If m > 0 Then
Randomize
For i = 1 To m
j = 1 + Int(Rnd * nbOK)
aux = t(i): t(i) = t(j): t(j) = aux
Next i
Range("d1").Resize(m).NumberFormat = "@"
Range("d1").Resize(m).HorizontalAlignment = xlRight
Range("d1").Resize(m) = Application.Transpose(t)
End If
End If
End Sub