Supprimer toutes les lignes qui ne commence pas par ,"Cheval " ou

Bonjour,

Je suis à la recherche d'une macro qui pourrais me supprimer toutes les lignes qui ne commencent pas par le texte cheval ou poule dans la colonne A. sur excel

Merci de votre aide.

bonjour,

essaie ceci, sélectionner la feuille puis exécuter la macro

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = dl To 1 Step -1
        If UCase(Left(Cells(i, 1), 6)) = "CHEVAL" Or UCase(Left(Cells(i, 1), 5)) = "POULE" Then
        Else
            Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub

je teste merci