Bonjour,
Le plus simple reste de faire un filtre pour trier les lignes à supprimer (sélection de la ligne d'en-têtes --> "Données" --> "Filtrer").
Sinon, voilà une macro qui devrait faire l'affaire :
Sub SupprConditionnelle()
Dim Lig As Long, LigMax As Long, LigMin As Long 'Déclaration des variables
With Sheets("MaFeuille") '<--nom à adapter
LigMin = 17 'Ligne mini
LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
For Lig = LigMax To LigMin Step -1 'Boucle sur la ligne
If .Range("D" & Lig) = 0 Or Application.IsNA(.Range("C" & Lig)) Then .Rows(Lig).Delete 'Suppression si Colonne D = 0 ou Colonne C = "#N/A"
Next Lig
End With
End Sub
PS : des sujets très proches ont déjà été traités sur le forum, il te suffit de faire une recherche par mots clés...