Bonjour
je souhaite supprimer les lignes après un filtre sur deux colonnes F et G
le filtre concerne les valeurs nul ou égale a zéro dans la même ligne
j'ai bricolé ce code la mais mon tableau1 ne contient pas que 100 lignes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Macro2()
 
Sheets("test").ListObjects("Tableau1").Range.AutoFilter Field:=6, Criteria1:="=0", Operator:=xlOr, Criteria2:="="
Sheets("test").ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:="=0", Operator:=xlOr, Criteria2:="="
Rows("2:100").Delete
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=6
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7
 
End Sub
Svp aidez moi a rédigé un code plus correcte