XL 2010 Excel macro suppression de ligne ne commençant pas par 2 critères

Sub TEST()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If (Range("A" & i) Like "X*") Or (Range("A" & i) Like "Y*") Then Rows(i).Delete 'si ca commence par X ou Y on supprime
Next i
End Sub

Sub TEST()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Not (Range("A" & i) Like "X*") And Not (Range("A" & i) Like "Y*") Then Rows(i).Delete
Next i
End Sub

Sub TEST()
application.screenupdating=false
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
   If Not (Range("A" & i) Like "X*") And Not (Range("A" & i) Like "Y*") Then Rows(i).Delete
Next i
End Sub
application.screenupdating=true