Bonjour,pas sur de tout avoir deviné, mais ===>>
essaye ceci :
For i = 1 To 10
toto = Range("A" & i).Text
If Not IsNumeric(toto) And toto <> "" Then
Range("A" & i).Value = CDbl(Replace(toto, ".", ""))
Range("A" & i).NumberFormat = "#0.00"
End If
Next
où je traite les cellule A1 à A10
Il n'y a pas de quoi...
Par contre... ce dont tu parles ici c'est de Formule... hors ce forum est principalement destiné à du DEV (donc pour office : du VBA ).
Voici un exemple de code ( en VBA donc) qui fait ce que tu demande :