Function AbsGN(ByVal nb As String) As String 'Equivalent à ABS() If Left$(nb, 1) = "-" Then AbsGN = Mid$(nb, 2) Else AbsGN = nb End Function