[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim tp!, tb$, i&, j&, k&, l&, m&, n&, o&, p&, q&, r&, col&, lig&, T, tablo$(59999, 0)
tp = Timer
T = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
Range("A2:BI65536").ClearContents
For i = 0 To 0
tb = T(i)
For j = 0 To 9
If j <> i Then
tb = tb & T(j)
For k = 0 To 9
If k <> i And k <> j Then
tb = tb & T(k)
For l = 0 To 9
If l <> i And l <> j And l <> k Then
tb = tb & T(l)
For m = 0 To 9
If m <> i And m <> j And m <> k And m <> l Then
tb = tb & T(m)
For n = 0 To 9
If n <> i And n <> j And n <> k And n <> l And n <> m Then
tb = tb & T(n)
For o = 0 To 9
If o <> i And o <> j And o <> k And o <> l And o <> m And o <> n Then
tb = tb & T(o)
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
tb = tb & T(p)
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
tb = tb & T(q)
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, 0) = tb & T(r)
If lig = 59999 Then
Cells(1, col + 1).Select 'pour suivre la progression
Range("A2:A60001").Offset(0, col).Value = tablo
Erase tablo
lig = 0
col = col + 1
Else
lig = lig + 1
End If
End If
Next r
tb = Left$(tb, 8)
End If
Next q
tb = Left$(tb, 7)
End If
Next p
tb = Left$(tb, 6)
End If
Next o
tb = Left$(tb, 5)
End If
Next n
tb = Left$(tb, 4)
End If
Next m
tb = Left$(tb, 3)
End If
Next l
tb = Left$(tb, 2)
End If
Next k
tb = T(i)
End If
Next j
Next i
Range("A2").Offset(0, col).Resize(lig).Value = tablo 'la dernière colonne
MsgBox "Durée du traitement : " & Round(Timer - tp, 2) & " s"
End Sub[/B][/COLOR]