Aide VBA Urgent

Sub Combinaison()
Dim somme As Double
Dim n25 As Integer, n10 As Integer, n5 As Integer, n1 As Integer
Dim i As Integer

i = 1
For n25 = 0 To 4
    For n10 = 0 To 10
        For n5 = 0 To 20
            For n1 = 0 To 100
                somme = n25 * 0.25 + n10 * 0.1 + n5 * 0.05 + n1 * 0.01
                If somme = 1 Then
                    Cells(i, 1) = n25   'nombre de 25 cents
                    Cells(i, 2) = n10   'nombre de 10 cents
                    Cells(i, 3) = n5    'nombre de 5 cents
                    Cells(i, 4) = n1    'nombre de 1 cenne
                    i = i + 1
                End If
            Next n1
        Next n5
    Next n10
Next n25

End Sub