'---
[B10] = Replace(Replace([B8], suf, ""), ",", ".") 'conversion numérique de la chaîne
'---
If t = "0" Or t = "" Then
.Value = 0 & suf
If Not Intersect(Target, Union(.Cells, Decim, suf)) Is Nothing Then
Fichier (6) avec ce complément :On veut 3 décimales après la virgule : 13,2 --> + 13,200 %
'---
'---ajout de zéros pour obtenir le nombre exact de décimales---
If Decim Then
n = InStr(t, Mid(0.1, 2, 1)) 'position du séparateur décimal
If n Then
If Len(Mid(t, n + 1)) < Decim Then t = t & String(Decim - Len(Mid(t, n + 1)), "0")
Else
t = t & Mid(0.1, 2, 1) & String(Decim, "0")
End If
End If