Dim t, X, i As Byte 'ou Dim t As Variant, X As Variant, i As Byte
t = Array(",", ";", "?", ":", "!", "*") 'etc...
X = calcul.TextBox2 'calcul. pas nécessaire si l'on est dans le code de l'USF calcul
For i = LBound(t) To UBound(t)
X = Replace(X, t(i), ".")
Next
X = Val(X)