Salut le forum, Bonjour Cathy,
Le problème etant de ne pas réfléchir à quand on parle de point ou de virgule pour ce faire il faut utiliser la propriété DecimalSeparator et non pas un texte fixe tel que ","
Case Range("Decimal").Address
If InStr(Range("Resultat"), ".") = 0 And InStr(Range("Resultat"), ",") = 0 Then
Nombre = Nombre & Application.DecimalSeparator
Range("Resultat") = Nombre
End If
J'espère que cela résoudra ton petit tracas du moment
@ bientôt
Valérie