Une autre version :
Sub GenerateCombinations()
Dim tbl As Variant, tblFinal() As Variant
Dim a As Long, b As Long, c As Long, d As Long
Dim q As Long, numCombinations As Long
' Clear previous contents of cells
Range("A:E").ClearContents
' Create an array of numbers from 1 to 10
tbl =...