excel 2003 VBA

futurity

try this in Function Salaire_brut:

If ca <= 2000 Then
    commission = ca * 0.02
Else
    If ca <= 4000 Then
        commission = 40 + (ca - 2000) * 0.03
    Else
        If ca <= 5000 Then
            commission = 100 + (ca - 4000) * 0.04
        Else
            commission = 140 + (ca - 5000) * 0.06
        end if
    end if
End If