suppression de lignes sous condition si différent de

Sub effacer()
    Dim i As Integer
    For i = Range("a65536").End(xlUp).Row To 1 Step -1
          If Cells(i, 1).Value = "CC1" Or Cells(i, 1).Value = "CC2" Then
          'MsgBox "VRAI"
          Else
          'MsgBox "FAUX"
          Rows(i).Delete
          End If
    Next i
End Sub

Sub Filtrer()
Dim h&
h = [C65536].End(xlUp).Row
Application.ScreenUpdating = False
[IV2].Formula = "=AND(C2<>""CC1"",C2<>""CC2"",C2<>""CC3"")"
[C1].Resize(h).AdvancedFilter xlFilterInPlace, CriteriaRange:=[IV1:IV2]
On Error Resume Next 'si aucune cellule filtrée
[C2].Resize(h - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
[C:C].AdvancedFilter xlFilterInPlace, "" 'affiche toutes les cellules
[IV2] = ""
End Sub

Sub Macro1()
' Macro enregistrée le 10/01/2012 par l'agrafe
Range("B1:B" & [A65536].End(xlUp).Row).FormulaR1C1 = "=IF(AND(LEFT(RC[-1],2)=""CC"",ISNUMBER(1*MID(RC[-1],3,1))),0,"""")"
Range("B1:B" & [A65536].End(xlUp).Row).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End Sub