XL 2013 Macro pour suprimer ligne avec un tiret

Sub Sup()
Columns(1).Replace "-*", "", xlWhole
On Error Resume Next 'si aucune SpecialCell
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Sub Epure_Tiret()
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        If Left(Cells(i, 1), 1) = "-" Then
            Cells(i, 1).EntireRow.Delete shift:=xlUp
        End If
    Next
End Sub

Sub SupRapide()
Dim ncol%, tablo, i&, n&
With ActiveSheet.UsedRange
    ncol = .Columns.Count
    If ncol = 1 Then ncol = 2 'pour avoir au moins 2 éléments
    tablo = .Resize(, ncol) 'matrice, plus rapide
    For i = 1 To UBound(tablo)
        If Left(tablo(i, 1), 1) <> "-" Then
            n = n + 1
            For j = 1 To ncol
                tablo(n, j) = tablo(i, j)
            Next j
        End If
    Next i
    '---restitution---
    If n Then .Resize(n) = tablo
    .Offset(n).Resize(.Parent.Rows.Count - n - .Row + 1).Delete xlUp 'RAZ en dessous
    With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub