et en F3 :=CNUM(STXT(D3;3;CHERCHE("+";D3;1)-3))
=CNUM(STXT(D3;CHERCHE("+";D3;1)+1;CHERCHE(")";D3;1)-CHERCHE("+";D3;1)-1))
Function AjoutéÀ(ByVal R As Range) As String
On Error Resume Next
AjoutéÀ = Split(Split(R.Formula, "+")(0), "=(")(1)
If Err Then AjoutéÀ = ""
End Function
=SUBSTITUE(AjoutéB(D3);GAUCHE(AjoutéB(D3);3);"";1)
Function AjoutéB(ByVal R As Range) As String
On Error Resume Next
AjoutéB = Split(Split(R.Formula, ")*")(0), "=(")(1)
If Err Then AjoutéB = ""
End Function
;Trouve("+",AjoutéB(D3)))
Function Isoler(ByVal Cellule As Range, Caractère_avant, Caractère_après As String)
On Error Resume Next
Isoler = Split(Split(Cellule.Formula, Caractère_après)(0), Caractère_avant)(1)
If Err Then Isoler = ""
End Function