Sub Tirage()
Dim Tin(), Tout(), n
Tin = Range("A1:T1")
ReDim Tout(77520, 1)
Range("U:U").ClearContents
Application.ScreenUpdating = False
n = 0
For a = 1 To 14: For b = a + 1 To 15: For c = b + 1 To 16: For d = c + 1 To 17: For e = d + 1 To 18: For f = e + 1 To 19: For g = f + 1 To 20
Tout(n, 0) = Tin(1, a) & "-" & Tin(1, b) & "-" & Tin(1, c) & "-" & Tin(1, d) & "-" & Tin(1, e) & "-" & Tin(1, f) & "-" & Tin(1, g)
n = n + 1
Next: Next: Next: Next: Next: Next: Next
Range("$U$1").Resize(UBound(Tout, 1), UBound(Tout, 2)) = Tout
End Sub