Connaitre toutes les solutions possibles à une équation à 4 inconnues ?

Option Explicit

Sub test()
    Call e4i(8, 4, 2, 1, 1210, 0, 200)
End Sub

Sub e4i(a&, b&, c&, d&, t&, m&, n&)
Dim i&, j&, k&, e&, x&, y&, z&, f#, g%
    Sheets.Add
    Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    For i = m To WorksheetFunction.Min(Int(t / a), n)
        x = a * i
        For j = m To WorksheetFunction.Min(Int((t - x) / b), n)
            y = x + b * j
            For k = m To WorksheetFunction.Min(Int((t - y) / c), n)
                z = y + c * k: f = (t - z) / d
                If f - Int(f) = 0 And f >= m And f <= n Then
                    e = e + 1
                    If e > Rows.Count Then e = 1: g = g + 5
                    Cells(e, g + 1) = i: Cells(e, g + 2) = j: Cells(e, g + 3) = k: Cells(e, g + 4) = f
                End If
            Next k
        Next j
    Next i
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub