Function NadiaForEver(cel1 As Variant) As String
'job75 / Magic_Doctor
Dim x As Byte
Dim cel2 As Variant, txt1 As String, txt2 As String
Dim mestxt As Variant, dico As Object, temp As Variant
Dim i As Byte, j As Byte, t As String, n As String
x = 4 'nombre de décimales après la virgule
cel2 = cel1.Offset(, 1) 'cel1 et cel2 sont contenus dans des colonnes contiguës
cel1 = FormatNumber(cel1, 15): cel2 = FormatNumber(cel2, 15) 'pas plus de 15 chiffres après la virgule
txt1 = CStr(cel1): txt2 = CStr(cel2)
mestxt = Array(txt1, txt2)
Set dico = CreateObject("Scripting.Dictionary")
If cel1 = "" Or cel2 = "" Then Exit Function
For i = 1 To 2
For j = 1 To Len(mestxt(i - 1))
t = Mid(mestxt(i - 1), j, 1)
If Not IsNumeric(t) And t <> "," And t <> "." Then Exit For
Next
t = Replace(Left(mestxt(i - 1), j - 1), ",", ".")
n = IIf(j = 1, "", Format(Val(t), "0." & String(x, "0")))
dico(n & Mid(mestxt(i - 1), j)) = ""
Next
temp = dico.keys
NadiaForEver = temp(0) & " +/- " & temp(1)
End Function