Problème de boucle

Bonjour, j'ai un problème avec mon code VBA... lors de la deuxième boucle de mon code il devrait y avoir seulement 10 itération car pour aller de 0 à 1 avec un pas de 0.1 ça fait 10 mais pourtant il en fait bien plus .. Pouvez vous me dire où je me suis trompé svp ? merci d'avance !

Sub Macro1()
'
' Macro1 Macro
'
Dim a As Integer
Dim n As Long
Dim x As Long
Dim c As Long

c = Range("F18").Value
i = 0
emin = 0
amin = 0
imin = c

For e = 0 To c
    For a = 0 To 1 Step 0.1
    somme_interet = Range("F17").Value
        If somme_interet < imin Then
        emin = e
        amin = a
        imin = somme_interet
        Range("F20").Value = emin
        Range("F21").Value = amin
        End If
    Next
Next

Bonsoir,

pour commencer ta variable 'a' n'est 'Integer'.

Pour le reste, à te relire