bonjour
je ne t'avais pas oublié osella, et cherchais en vain à traduire en macro ton sytème de filtre, mais l'idée de bertrand est pas mal.
voila la traduction de l'idée de bertrand en vba appliqué à ton tableau :
Public Sub vev()
Columns("A:AB").Sort Key1:=Range("AB1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Set cellule = Columns("AB").Find(What:="0", LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Range(cellule.Address(0, 0), Range("ab65536")).EntireRow.Delete
End Sub
Pour ceci j'ai utilisé l'enregistreur de macro.
Salut
Hervé