Private Sub CommandButton1_Click()
Dim tp As Double, T, i As Byte, j As Byte, k As Byte, l As Byte, m As Byte, n As Byte
Dim o As Byte, p As Byte, q As Byte, r As Byte, col As Byte, lig As Long, tablo$(59999)
tp = Timer
T = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
Range("A2:IV65536").ClearContents
For i = 0 To 9
For j = 0 To 9
If j <> i Then
For k = 0 To 9
If k <> i And k <> j Then
For l = 0 To 9
If l <> i And l <> j And l <> k Then
For m = 0 To 9
If m <> i And m <> j And m <> k And m <> l Then
For n = 0 To 9
If n <> i And n <> j And n <> k And n <> l And n <> m Then
For o = 0 To 9
If o <> i And o <> j And o <> k And o <> l And o <> m And o <> n Then
For p = 0 To 9
If p <> i And p <> j And p <> k And p <> l And p <> m And p <> n And p <> o Then
For q = 0 To 9
If q <> i And q <> j And q <> k And q <> l And q <> m And q <> n And q <> o And q <> p Then
For r = 0 To 9
If r <> i And r <> j And r <> k And r <> l And r <> m And r <> n And r <> o And r <> p And r <> q Then
tablo(lig) = T(i) & T(j) & T(k) & T(l) & T(m) & T(n) & T(o) & T(p) & T(q) & T(r)
If lig = 59999 Then
Cells(1, col + 1).Select 'pour suivre la progression
Range("A2:A60001").Offset(, col) = Application.Transpose(tablo)
lig = 0
col = col + 1
Else
lig = lig + 1
End If
End If
Next r
End If
Next q
End If
Next p
End If
Next o
End If
Next n
End If
Next m
End If
Next l
End If
Next k
End If
Next j
Next i
Range("A2").Offset(, col).Resize(lig + 1) = Application.Transpose(tablo) 'la dernière colonne
MsgBox "Durée du traitement : " & Int(Timer - tp) & " s"
End Sub
