Supprimer Lignes Selon Criteres

[KTM]

Salut chers tous
Je voudrais supprimer toutes les lignes comportant les chiffres 1 de la colonne B comme l'illustre le fichier Joint.Merci

 

[job75]

Bonjour KTM,

Depuis le temps vous avez peut-être déjà vu cette solution très classique :

Sub SupprimerLignes()
Application.ScreenUpdating = False
With [B6].CurrentRegion
    .Columns(2).Insert xlToRight
    .Columns(2) = "=1/(RC[-1]<>1)"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Sort .Columns(2), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.Columns(2).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Cells).Delete xlUp
    .Columns(2).Delete xlToLeft
End With
End Sub

A+

 

[KTM]

Impeccable Merci. J'ai essayé et c'est OK