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