Function NumChaine(chaine)
Application.Volatile
TempChaine = Trim(Application.Substitute(chaine, ",", "."))
Temp = ""
For I = 1 To Len(TempChaine)
c = Mid(TempChaine, I, 1)
If c >= "0" And c <= "9" Or c = "." Then Temp = Temp & c
Next I
NumChaine = Val(Temp)
End Function