Suppression de lignes en fonction de valeurs en colonnes

Bjr, je suis très léger dans mes connaissances VBA c'est pour cela que je vous sollicite .

Sur un fichier j''ai besoin de supprimer toutes les lignes qui ont la valeur A et B en colonne m et de garder touts les lignes C et D, le nombre de lignes peut varier entre 2000 et 9000.

Je dois automatiser un petit utilitaire et je souhaiterai intégrer ce tri, je vous joins le fichier.

Merci de votre aide

bien à vous

Fred

Bonjour,

Essaie ceci :

Sub SupprimerLignes()
    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter 13, "A", xlOr, "B"
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
    End With
End Sub

Cordialement.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Merci à vous 2 pour vos réponses mais entre temps je continuais a chercher et pour une fois j'ai trouvé, j'ai testé la solution de Mferrand car elle est plus simple que ce que j ai fait et ca fonctionne parfaitement.

Encore une fois merci.

Bonne continuation.