Function Reformu(ByVal Z As String) As String
Dim TS1() As String, P1 As Long, TS2() As String, P2 As Long, _
TS3() As String, Fin As String, M As Long
TS1 = Split(Replace(Z, " ", ""), ",")
For P1 = 0 To UBound(TS1)
TS2 = Split(TS1(P1), "(")
TS2(0) = RFMult(TS2(0), 1)
For P2 = 1 To UBound(TS2)
TS3 = Split(TS2(P2), ")")
M = TêteÉliminée(TS3(1))
TS2(P2) = RFMult(TS3(0), M) & RFMult(TS3(1), 1): Next P2
TS1(P1) = Join(TS2, ""): Next P1
Reformu = Join(TS1, "")
End Function