Macro - VBA

Sub calcul()
Function CalculImpot(revenus As Double) As Double

'Déclaration

Dim Seuil1, Seuil2, Seuil3, Seuil4, Taux1, Taux2, Taux3, Taux4, Taux5 As Double
Dim impots As Double
Dim revenus As Double

Seuil1 = Range("Seuil1").Value
Seuil2 = Range("Seuil2").Value
Seuil3 = Range("Seuil3").Value
Seuil4 = Range("Seuil4").Value
Taux1 = Range("Taux1").Value
Taux2 = Range("Taux2").Value
Taux3 = Range("Taux3").Value
Taux4 = Range("Taux4").Value
Taux5 = Range("Taux5").Value
revenues = Range("revenus").Value


'Début de mon programme
impots = Range("B5").Value
For i = 1 To impots

If revenus < Seuil1 Then
impots = revenus * Taux1
Else


    If revenues < Seuil2 Then
    impots = (Seuil1 * Taux1) + ((revenus - Seuil1) * Taux2)
        Else
        
        
        If revenues < Seuil3 Then
        impots = (Seuil1 * Taux1) + ((Seuil2 - Seuil1) * Taux2) + ((revenues - Seuil2) * Taux3)
        Else
        
            If revenues < Seuil4 Then
            impots = (Seuil1 * Taux1) + ((Seuil2 - Seuil1) * Taux2) + ((Seuil3 - Seuil2) * Taux3) + ((revenues - Seuil3) * Taux4)
            Else
            
            impots = (Seuil1 * Taux1) + ((Seuil2 - Seuil1) * Taux2) + ((Seuil3 - Seuil2) * Taux3) + ((Seuil4 - Seuil3) * Taux4) + ((revenues - Seuil4) * Taux5)
          
                                      
            End If
        End If
    End If
End If
Next

CalculImpot = impots
End Function

End Sub