Bonjour à vous tous

Voici une macro de mon cru qui bug :

Lorsque je rentre le 1er versement sans le point du pavé numérique (exemple:14), la macro se déroule correctement, mais quand je tape 14.5, j'ai le message suivant (la ligne de code en gras est la source du problème) :


Message erreur execution 13

type incompatible

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
R = MsgBox("Le 1er versement est-il fixe ?", vbYesNo + vbInformation, "Calcul automatique")
 
If R = vbYes Then
 
Message = "Veuillez entrer le montant du 1er versement."
Titre = "Calcul automatique"
Montant1 = InputBox(Message, Titre)
 
 
 
'delai en moins de 12 mois
numéro_erreur = "Référence de l'erreur : [calcul_auto_2]"
 
If NbEch > 1 Then
Range("F18:F29").ClearContents
Range("H18:H29").ClearContents
 

Range("F18").Value = Montant1
 
 
 Ech = (MontantDelai - Montant1) \ (NbEch - 1)
 N = NbEch - 2
 DernierVers = (MontantDelai - Montant1) - (Ech * N)
 DateEch = Datedebut
 
    
    
    For h = 1 To N + 1
    K = h + 17
    Cells(K, 8).Value = DateEch
    DateEch = DateAdd("m", 1, DateEch)
    Next h
    
    K = K + 1
    Cells(K, 8).Value = DateEch
    
    
    
    For i = 1 To N
    J = i + 18
    Cells(J, 6).Value = Ech
    Next i
     
    J = J + 1
    Cells(J, 6).Value = DernierVers
Merci beaucoup !