Suppression de lignes

Question

Je bloque sur une macro, si quelqu'un peut me dépanner se serait très sympa ma demande serai de laisser apparante les lignes qui se terminent par 2 et 7 exemple : les lignes 2,7,12,17,22,27 etc ...... et de supprimer toutes les autres lignes merci d'avance AUBA...

cousinhub · Answer

Re-,

Tu aurais du rester sur le même fil....

Essaie ce code, à adapter...

Sub suppr()
Dim DerLig As Long
With Sheets("Feuil1")  'nom de la feuille à adapter
    DerLig = .[A65000].End(xlUp).Row
    .Range("A1:B" & DerLig).Name = "base"   ' La colonne B à adapter
    .Range("IV2").FormulaR1C1 = "=AND(RIGHT(RC1,1)*1<>2,RIGHT(RC1,1)*1<>7)"
    .Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        .Range("IV1:IV2"), Unique:=False
    .Range("_FilterDataBase").Offset(1, 0).Resize(.Range("_FilterDataBase"). _
        Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    .ShowAllData
    .[IV2].Clear
End With
End Sub

Bonne journée