Supprimer le signe - dans une colonne entière

sub remplace_tiret()
Application.ScreenUpdating = False
Dim C As Range
For Each C In ActiveSheet.UsedRange
C.Value = Replace(C.Text, "-", "")
Next
Application.ScreenUpdating = True

Sub Colonne_SANS_Tirets()
Dim Quoi As String
Dim NumCOL As Long
Dim ColRNG As Range
Quoi = Chr(45)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
NumCOL = InputBox("Saisir le numéro de colonne (en chiffre)")
Set ColRNG = ActiveSheet.Range(Cells(1, NumCOL), Cells(65536, NumCOL).End(xlUp))
Dim C As Range
For Each C In ColRNG
C.Value = Replace(C.Text, Quoi, "")
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Set ColRNG=Nothing
Set C=Nothing
End Sub

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If IsNumeric(c.Value) Then c.Value = Abs(c.Value)
Next c
End Sub