Function SimpFraction(ByVal A As Variant, ByVal B As Variant) As String
'Simplification fractionnaire en valeur irréductible

'Déclaractions
Dim A1, B1, P

'paramètres en 28 chiffres
A1 = CDec(A): B1 = CDec(B)
P = Pgcd2(A, B)

'calculs
A = A1 / P
B = B1 / P
If Sgn(A) = Sgn(B) Then 'regle des signes
    A = Abs(A): B = Abs(B)
    Else
    A = -Abs(A): B = Abs(B)
End If
    
'Renvoi expression
SimpFraction = A & "/" & B

End Function