Suppression de lignes

Bonjour a tous

j'ai un fichier excel de (1000 lignes)et je voudrais supprimer les lignes ou la colonne R (18) =0

au départ je voulais faire une macro mais serait t'il possible de le faire sans macro

merci de vos réponse

voici mon code

Public Sub supp()

    Dim i As Integer
    Dim DernLigne As Long

    With ActiveSheet
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
    End With

    For i = 2 To DernLigne
        If Cells(i, 18).Value = 0 Then
            'supprimer la ligne
        End If
    Next i

End Sub

Oui en utilisant les filtres.

La manip :

Sélectionner la ligne 1.

Onglet données => Filtrer

Cliquer sur la petite flèche apparue sur près de ton en-tête de colonne R.

Ne garder que le 0.

Tous les sélectionner puis supprimer.

Girodo

Mercii beaucoup pour ta reponse mais si je passe de la ligne 7 a 10 quand je supprime sa ne va pas me supprimer la ligne 8 et 9?

merci beaucoup Girodo sa marche