Sub Extraire2()
'job75 (adapté pour mon projet)
Dim cadena$, txt$, i%, t$, s, chiffre1, chiffre2
Application.ScreenUpdating = False
On Error Resume Next 's'il n'y a qu'un seul chiffre, sinon plantage
cadena = "[39,0915520] +/- [9,0915510]"
'cadena = "[29,0915500]"
txt = cadena
txt = Replace(txt, ",", ".")
For i = 1 To Len(txt)
t = Mid(txt, i, 1)
If t <> "." And t <> " " And Not IsNumeric(t) Then txt = Replace(txt, t, " ")
Next
txt = Application.Trim(txt) 'SUPPRESPACE
s = Split(txt)
chiffre1 = s(0) '1er chiffre
chiffre2 = s(1) '2ème chiffre
'**************************** Vérifications ****************************
[e3] = chiffre1 'marche
[e4] = chiffre2 'marche
[e5] = IIf(chiffre2 = "", "¡Sólo un número!", IIf(chiffre1 > chiffre2, "VRAI", "FAUX")) '--> ne marche pas
[e6] = InStr(cadena, chiffre1) 'position dans la chaîne "cadena" du début du 1er chiffre --> ne marche pas
[e7] = InStr(cadena, chiffre2) 'position dans la chaîne "cadena" du début du 2ème chiffre --> ne marche pas
[e8] = Len(chiffre1) 'marche
[e9] = Len(chiffre2) 'marche
End Sub