Sub Test()
ListeCombi ActiveSheet.[B2].Resize(1331, 4), 0, 200000, 11
End Sub
Sub ListeCombi(ByVal RngCible As Range, ByVal Début As Double, ByVal Pas As Double, NbVal As Long)
Dim T(), L As Long, C As Long, N As Long, R As Long
ReDim T(1 To RngCible.Rows.Count, 1 To RngCible.Columns.Count)
For L = 1 To UBound(T, 1)
T(L, 1) = L
N = L - 1
For C = UBound(T, 2) To 2 Step -1
R = N Mod NbVal
T(L, C) = Début + Pas * R
N = N \ NbVal: Next C, L
RngCible.Value = T
End Sub