Trouver les valeurs qui composent une formule

=FORMULETEXTE(A1)

=SUBSTITUE(STXT(FORMULETEXTE(A1);2;CHERCHE("+";FORMULETEXTE(A1))-2);"(";"")

Sub Macro1()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar _
        :="+", FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
    Columns("A:A").Select

    Cells.Replace What:="=", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="(", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=")", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
        "+", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1)), TrailingMinusNumbers:=True
    
End Sub

Function xformule(ByVal r As Range, sep$, x As Byte) As String
xformule = Split(r.Formula, sep)(x)
End Function

=EVALUER("{"&SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(LIRE.CELLULE(6;Feuil1!$A$1);"=";);")";);"(";);"*";"+");"+";";")&"}")

=SIERREUR(INDEX(MesValeurs;COLONNE()-1);"")