Sub remonte()
fin = Range("E" & Rows.Count).End(xlUp).Row
Tabloinit = Range("E2:E" & fin).Value
For i = LBound(Tabloinit) To UBound(Tabloinit)
If Tabloinit(i, 1) = "-" Then
Tabloinit(i, 1) = ""
End If
Next i
Range("E2").Resize(fin - 1) = Tabloinit
Range("E2").Resize(fin - 1).Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'
'ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E2"), _
' SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
' xlSortTextAsNumbers
'With ActiveWorkbook.Worksheets("Feuil1").Sort
' .SetRange Range("E2:E" & fin)
' .Header = xlNo
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
'End With
End Sub