' marche avec tout type de numérique:
' Byte, Integer, Long, Double, Décimal, (chaîne mais avec restriction)
Private Function SommeChiffre(nombre As Variant) As Long
Dim n As Variant, t As Variant, s As Long
n = Int(nombre)
While n > 0
t = n
n = Int(t / 10)
s = s + t - n * 10
Wend
SommeChiffre = s
End Function