Supprimer ligne entière selon 2 conditions

Bonjour à tous !

Je souhaite créer une macro en VBA

Dans la colonne O, à partir de O3, supprimer toutes les lignes contenant 0 ( zéro ) ou #N/A.

J'ai déjà ce bout de code mais qui ne fonctionne que lorsque les premiers zéro sont rencontrés. Elle s'arrête lorsqu'elle tombe sur #N/A et commence en O1 au lieu de O3

Sub PAST()
Dim nb_col As Integer
nb_col = Application.CountA(Columns("O"))

For i = nb_lig To 1 Step -1
   If Range("O" & i).Value = "0" Then
    Rows(i).EntireRow.Delete
   End If
Next
End Sub

Merci pour votre aide afin de finaliser ma macro.

Bonne journée à tous,

Bonjour

Essaie ça :

Sub PAST()
    Dim nb_lig As Integer, i&
    nb_lig = Application.CountA(Columns("O"))
    For i = nb_lig To 1 Step -1
       If Range("O" & i).Value = "0" Or Range("O" & i).Value = "#NA" Then
        Rows(i).EntireRow.Delete
       End If
    Next
End Sub

Bye !

Bonjour,

Desole pour la réponse tardive. Je vais tester !

Bonjour !

Pour te faire un retour GMB, la macro m'affiche une erreur sur la partie :

If Range

Erreur 13. Incompatibilité de Type.

D'autre part, je voulais lancer à partir de O3 ma requête car j'ai des données que je souhaite conserver en tête de colonne sur 01 et 02

Sub PASTICKET()
 Dim nb_lig As Integer, i&
    nb_lig = Application.CountA(Columns("O"))
    For i = nb_lig To 1 Step -1
       If Range("O3" & i).Value = "0" Or Range("O" & i).Value = "#NA" Then
        Rows(i).EntireRow.Delete
       End If
    Next
End Sub

Merci encore pour toute aide qui me sera précieuse.

Bonne journée à tous,

Bonjour

Pour bien faire, il faudrait que je puisse disposer de ton fichier ou d'un fichier semblable, anonymisé si besoin...

Bye e