Sub combinaisons()
Dim lin&, col&, rc&, m%, n%, o%, p%, q%, tir$()
lin = 1
col = 0
[A1].CurrentRegion.Clear
'******************************
rc = 1906884 / 196
'******************************
x = Now
ReDim tir(1 To rc, 0)
Application.StatusBar = Now
Application.ScreenUpdating = False
For m = 1 To 49
For n = m + 1 To 49
For o = n + 1 To 49
For p = o + 1 To 49
For q = p + 1 To 49
tir(lin, col) = m & " " & n & " " & o & " " & p & " " & q
lin = lin + 1
If lin > rc Then
col = col + 1
lin = 1
Application.StatusBar = "combinaisons : " & col * rc & " Durée : " & Format(Now - x, "hh:mm:ss")
ReDim Preserve tir(1 To rc, col)
End If
Next q
Next p
Next o
Next n
Next m
Range(Cells(1, 1), Cells(rc, col + 1)).Value = tir
Application.ScreenUpdating = True
MsgBox "Durée : " & Format(Now - x, "hh:mm:ss") & Chr(10) & "Combinaisons : " & Application.CountA([A1].CurrentRegion)
End Sub