Filtre + suppression de ligne

bonjour à tous,

Voila j’ai un tableau dans la feuille "Importation" qui va de la colonne A a I, j'ai mis un filtre dans la colonne G nommé "ORDERED-DATE" :

Sub filtre_Jan() ' filtre_Janvier Macro
   ActiveSheet.ListObjects("Tableau__vOpenOrders").Range. _
        AutoFilter Field:=7, Criteria1:=xlFilterAllDatesInPeriodJanuary, Operator _
        :=xlFilterDynamic
End Sub

Je voudrai supprimer les lignes qui ont étés filtrer. J'ai essayer plusieurs codes mes sa ne marche pas ......des idées ?

merci

j’ai trouvé je met le code a rajouté si jamais quelqu'un en a besoin:

For i = 65000 To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).Delete
Next