Supprimer une ligne si la cellule ne commence pas par AU

Hello,

Petit blocage dans mon projet vba pouvez m'aider svp mon probleme est le suivant :

Pour toutes les lignes dont les cellules en colonne E sont egales a "DE" alors supprimer les lignes dont les cellules en colonne C ne commencent pas par "AU", ( donc consever uniquement celle qui commencent par AU) voici mon code qui ne fonctionne evidemment pas :

Dim cell As Range

Dim C As Range

Dim I as integer

Set C = Worksheets("Sheet1").Range("C1:C3000")

For Each cell In C

For i = 1 To 3000

If cell.Offset(0, 2).Value = "DE" And Left$(cell.Value, 2) <> "AU" Then Rows(i).Delete

End If

Next i

Next cell

end sub

Pouvez vous m'aidez a corriger l'erreur ou me donner la bonne formulation svp

Merci

Bonjour

Essaie ce code :

Sub essai()
    Dim i&
    For i = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Left(Range("C" & i), 2) <> "AU" And Range("E" & i) = "DE" Then
            Rows(i & ":" & i).Delete shift:=xlUp
        End If
    Next i
End Sub

Bye !

Hello,

tu assures ca marche parfaitement,

un grand merci

@+