Boucle suppression de ligne à 2 conditions

Bonsoir le forum

Voici une boucle qui supprime la ligne si la cellule en "C" est vide

For i = 500 To 1 Step -1
    If Range("C" & i).Value = "" Then Rows(i).Delete
Next i

Je cherche à rajouter une deuxième condition

si la cellule "C" est vide et que la cellule "A" est remplie (ou non vide) alors suppression de la ligne

D'avance je vous remercie pour votre aide et pour le temps que vous m'accordez

Bonjour,

Un exemple à adapter.

Cdlt.

Public Sub DEMO()
Dim ws As Worksheet
Dim I As Long
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    With ws
        For I = 500 To 1 Step -1
            If .Cells(I, 1) <> "" And .Cells(I, 3) = "" Then
                .Rows(I).Delete
            End If
        Next I
    End With
    Set ws = Nothing
End Sub

Bonjour le forulm

Bonjour Jean-Eric

Merci beaucoup, c'est impec