Probleme de somme boucle...

Bonjour,

Mon problème est très simple a comprendre, je fais une boucle, j´additionne les chiffres petit a petit est quand c´est égale a 1 une message box.

Fonctionne avec toutes mes combinaison, jusqu´au moment mes valeur sont 0.825, 0.1, 0.075; la somme fait 1 (vérifier et revérifier ça fait 1). Je fais des tests et des tests pour comprendre avec d´autres macros, d´autres valeurs, sur d´autres feuille et avec d´autres formats, rien ni fait je n´ai pas de msgbox qui apparait.

Mais lorsque je converti en texte pour faire ma comparaison si j´ai ma message box qui apparait....

Ça me dépasse, je ne comprends pas, alors je sollicite l´aide d´un d´entre vous qui aura plus de lucidité que moi...

Merci d´avance

Sub test()
Dim CantL As Double
With Sheets("Plantilla")
NbLi = .Range("A" & Rows.Count).End(xlUp).Row:  TB = .Range("A2:L" & NbLi)
For i = LBound(TB) To UBound(TB)
    CantL = CantL + CDbl(TB(i, 7))
    If CantL = 1 Then MsgBox "ok"
    If CStr(CantL) = "1" Then MsgBox "ok"
Next i
End With
End Sub