Suppression ligne, macro inefficace

Sub supp()
    With [E5]
        .Value = "MIG"
        .AutoFilter Field:=5, Criteria1:="<>MIG"
        Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
            Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .AutoFilter
        .ClearContents
    End With
End Sub

Public Sub toto()
With ActiveSheet
Dim i As Integer
toto:
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
    If (.Range("E" & i).Value <> "MIG") Then
        Rows(i).Delete
        GoTo toto
    End If
Next
End With
End Sub

Public Sub toto()
With ActiveSheet
Dim i As Long
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 6 Step -1
    If (.Range("E" & i).Value <> "MIG") Then
        Rows(i).Delete
    End If
Next
End With
End Sub