Microsoft 365 Sélection d'une ligne après filtre automatique VBA

Jacky67 à dit:

Bonjour,
Cela pourrait ressembler à ceci
En adaptant le CodeName de la feuille

VB:

Sub supprime()
    With Feuil1.Range("$A$1:$A$" & Feuil1.Cells(Feuil1.Rows.Count, "A").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:="0"
        .Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .AutoFilter
    End With
End Sub

Cliquez pour agrandir...