signe négatif inversé

'=======================================================
'Procédure qui passe le signe '-' devant un nombre s'il
'est positionné derrière : 123- devient -123 !
'=======================================================
Sub sSignRightToLeft()
Dim i As Long
Dim j As Long
Dim nbColonnes As Long
Dim MyArray As Variant
Dim MyRange As Range

With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With

Set MyRange = Selection
With MyRange
    nbColonnes = .Columns.Count
    MyArray = .Value
End With
    For i = 1 To nbColonnes
        For j = 1 To UBound(MyArray, i)
            Select Case VarType(MyArray(j, i))
                Case vbString
                    If Right(MyArray(j, i), 1) = "-" Then
                        On Error Resume Next
                        MyArray(j, i) = CDbl(-Left(MyArray(j, i), Len(MyArray(j, i)) - 1))
                    End If
                Case vbEmpty
                    MyArray(j, i) = 0
                Case Else
                    MyArray(j, i) = CDbl(Trim(MyArray(j, i)))
            End Select
        Next
    Next
MyRange.Value = MyArray
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

Option Explicit
Sub change()
Dim cel As Range
For Each cel In Selection
If Right(cel, 1) = "-" Then cel.Value = Val("-" & Left(cel, Len(cel) - 1))
Next cel
End Sub

Option Explicit
Sub change()
Dim cel As Range
For Each cel In Selection
cel = Replace(cel, ",", ".")
If Right(cel, 1) = "-" Then cel.Value = Val("-" & Left(cel, Len(cel) - 1))
Next cel
End Sub