supprimer les lignes avec une valeur dans une colonne

Dim i As Integer, Ws As Worksheet

Set Ws = Sheets("Feuil1")
With Ws
For i = .Range("A65536").End(xlUp).Row To 1 Step - 1

If .Range("A" & i).Value Like "*2013*" Then
.Rows(i).Delete
End if

Next i
End With

Sub SupprimerLesLignes()

Application.ScreenUpdating = False
Application.Calculation = xlManual

Dim i As Integer, Ws As Worksheet

Set Ws = Sheets("Feuil1")
With Ws
For i = .Range("A65536").End(xlUp).Row To 1 Step -1

If .Range("A" & i).Value Like "*2013*" And Rows(i).Hidden = False Then
.Rows(i).Delete
End If

Next i
End With

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Sub Ligne_supprimer_si_2013_en_colonne_A()
Range("A1", Cells(Rows.Count, "A").End(xlUp)).AutoFilter Field:=1, Criteria1:="2013"
Rows(1).EntireRow.Hidden = True
    With Cells
        .SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .AutoFilter
        .EntireRow.Hidden = False
    End With
End Sub