Suppression des lignes selon la valeur dans plusieurs colonnes

Bonjour,

Je suis entrain de voir une possibilité pour supprimer des lignes entières qui contiennent la valeur 1 dans deux colonnes différentes B et C.

J'ai essayé ce code mais apparemment ne fonctionne pas correctement.

Public Sub Del()
Dim lr&, a&

With Sheets("Feuil3")
    For a = .Cells(.Rows.Count, 5).End(xlUp).Row To 1 Step -1
        If .Cells(a, 5) Like "*1*" Then
            .Rows(a).Delete
        End If
    Next a
End With
End Sub

Merci pour vos aides !

Bonjour,

j'ai peut être un code qui peux fonctionner, je l'ai testé sur ton fichier il m'a l'air de fonctionner correctement.

Sub DeleteRows()

Dim i As Long

For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
    If IsNumeric(Cells(i, "B").Value) Then
        If Cells(i, "B").Value = 1 Then Rows(i).Delete
    ElseIf IsNumeric(Cells(i, "C").Value) Then
        If Cells(i, "C").Value = 1 Then Rows(i).Delete
    End If
Next i

End Sub