Supprimer des points

=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;".";",";NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";"")));".";"");",";".")

Function otepoint(cellule As Range)
' si le nombre de termes contenus dans la cellule est > 3
If Len(cellule) > 3 Then
'on recupere les 3 derniers termes (si 2 decimales au plus
'ils contiennent 'eventuellement' le point decimal)
fin = Right(cellule, 3)
'on examine le reste
otepoint = Left(cellule, Len(cellule) - 3)
'x est la position du point
x = InStr(otepoint, ".")
'tant que x <>0 (cas de plusieurs points)
While x <> 0
'on prend ce qu'il y a avant le point et on ajoute ce qu'il y a apres
otepoint = Left(otepoint, x - 1) & Right(otepoint, Len(otepoint) - x)
'on verifie s'il reste un point
x = InStr(otepoint, ".")
Wend
'on rajoute les 3 derniers termes (mis en resrve)
' et on transforme en nombre (fonction val)
otepoint = Val(otepoint & fin)
Else
' 3 termes ou moins le point est lepoint decimal et on se
' contente de transformer en nombre
otepoint = Val(cellule)
End If
End Function