Supprimer des lignes suivant valeurs multiples contenues sur une colonne

Bonjour,

J'importe des données sur une plage "B15:P??" (La dernière ligne dépendant du fichier importé.

Après importation je souhaite supprimer toutes les lignes à partir du moment ou la colonne H (A partir de la ligne "H:15 jusqu'à la dernière) dont la valeur est égale à des valeurs alphanumériques en l'occurrence : (12M , 11M, 1X, 2MP).

Je vous remercie par avance.

Bonne journée à vous

Bonjour à tous !

Avez-vous étudié la piste Power Query (nativement intégré dans Excel 2016) ?

Cet outil peut, aisément, charger et retraiter des données pour vous les restituer (Tableau structuré, TCD, GCD)

Au besoin, joignez un classeur anonymisé mais représentatif.

C'est une idée, je me suis déjà servi de power querry.

Mais dans mon cas je souhaite créer un outil interactif qui servira à plusieurs actions différentes dont celle que je demandais.

Après importation je souhaite supprimer toutes les lignes à partir du moment ou la colonne H (A partir de la ligne "H:15 jusqu'à la dernière) dont la valeur est égale à des valeurs alphanumériques en l'occurrence : (12M , 11M, 1X, 2MP).

Bonjour à tous de nouveau !

Les données à retraiter sont situées sur quelle feuille ? ( "E"ou "Feuil1")

Sur feuille 1.

Il me semble avoir trouver une solution.

Si quelqu'un est intéressé.

Sub supression_Codes_Oper()

Dim DerLig As Long, ligne As Long

'constante (code = intitulé colonne) (7 = numéro de colonne)
Const Code = 7

    Application.ScreenUpdating = False

    With Worksheets("Feuil1")
        DerLig = .Range("c" & Rows.Count).End(xlUp).Row
        For ligne = DerLig To 2 Step -1
            If UCase(.Cells(ligne, Code)) = "11M" _
            Or UCase(.Cells(ligne, Code)) = "1M" _
            Then .Rows(ligne).Delete
        Next ligne
    End With

    Application.ScreenUpdating = True

End Sub

Bonjour à tous de nouveau !

Sujet résolu donc ! Parfait.