tiens, Cathy, je m'aperçois que je n'ai pas tout mis dans le bon ordre :
Function Nombre(Valeur)
Nombre = Format(Val(Valeur), "###0.00")
End Function
Concernant la partie numérique qui disparaît, il peut s'agir d'Excel 2000 qui ne réagit pas comme XP, chez moi, le point est bien reconnu par Val. Ce que tu peux essayer c'est de remplacer Val par CCur (c'est ce que conseille l'aide d'Excel, même si ça fonctionne à l'inverse dans XP...) Sinon il suffit de faire :
Val(Replace(Valeur,".",","))
Donc la fonction entière :
Function Nombre(Valeur)
Nombre = Val(Format(Replace(Valeur,".",","), "###0.00"))
End Function
(pas testé, je te dis tout ça de tête)