Nombre de valeur dans une cellule

Salut, j'ai encore un petit problème...
Tout marche sauf avec les chiffres avec des décimales. En effet, si j'ai en A1
=10+20+30.50
j'ai en B1 4 aulieu de 3. J'espère que vous avez une petite solution. Par avance merci.
fb40

Correction :

Sub Comptage()
'Compte les caractères non numériques dans une formule
Dim Boucle As Long, Chaine As String, Car As String, NbNum, lig As Variant

NbNum = 0
Numer = 0

For lig = 1 To Range("A65535").End(xlUp).Row
Chaine = CStr(Range("A1").Offset(lig - 1, 0).Formula)
For Boucle = 1 To Len(Chaine)
Car = Mid(Chaine, Boucle, 1)
If IsNumeric(Car) = False Then
If Car <> "." And Car <> "," Then
NbNum = NbNum + 1
Else
Numer = 1
End If
End If


Next Boucle
If NbNum = 0 And Numer = 1 Then NbNum = 1
Range("B1").Offset(lig - 1, 0).Value = NbNum
NbNum = 0
Numer = 0
Next lig
End Sub

Vraiement un grand bravo et un grand merci. Je voudrais vous dire à charge de revanche mais cela m'étonnerais que j'en sois capable.
Encore merci beaucoup.
fb40