VBA - sup lignes en fonction de deux conditions PB

Bonjour,

J'ai commencé un code vba mais il ne fonctionne pas → mais je ne vois pas ou est l'erreur?.

L'objectif de celle ci est de supprimer les lignes en fonction de deux conditions.

Si le texte dans la cellule est différent du mot references ou commence par CR alors on supprimer la ligne.

Sub essai_3()
Dim cell As Range
Set DataRange = ActiveSheet.Range("A1:A200") 'création de la plage de cell

    For Each cell In DataRange 'création de la boucle
         If Left(cell.Value, 2) <> "CR" And cell.Value <> "References" Then cell.EntireRow.Delete
         'supprimer les lignes différent de CR RE
    Next
End Sub

avec ce code, les lignes avec le mot references sont supprimées? avez vous une idée du soucis?

Merci d'avance et bonne journée

Julien

si j'ai bien compris :

If Left(cell.Value, 2) = "CR" Or cell.Value <> "References" Then cell.EntireRow.Delete

Merci Guillaume;

En faites c'était l'inverse lol mais j'ai trouvé merci

bonne continuation