XL 2016 Ajouter la fonction AutoFilter à une macro qui fait l'import des données

Sub Importer_New()

     Dim Wsh1 As Worksheet, Wsh2 As Worksheet, LO As ListObject, Ligne As Long
     Dim RgDate As Range, Cible As Range
     
     'Les objets utilisés
     Set Wsh1 = Feuil1                       'La feuille Cible
     Set Wsh2 = Feuil2                       'La feuille source (contenant le tableau structuré)
     Set RgDate = Wsh1.[C26]                 'La cellule contenant la date recherchée
     Set Cible = Wsh1.[D26:G26]              'La plage cible de l'import
     Set LO = Wsh2.ListObjects("Tab_JRS")    'Le tableau structuré source à filtrer
     
     'Recherche de la ligne contenat la date RgDate
     On Error GoTo Erreur
     Ligne = WorksheetFunction.Match(RgDate.Value2, LO.ListColumns("Date").Range, 0)
     
     'Recopie des colonnes nommées S, Q, D, C de la ligne trouvée
     Cible.Value = LO.ListColumns("S").Range.Rows(Ligne).Resize(, 4).Value
     
     'Filtre sur le mois de RgDate
     LO.Range.AutoFilter Field:=LO.ListColumns("Date").Index, _
                         Operator:=xlFilterValues, _
                         Criteria2:=Array(1, Format(WorksheetFunction.EoMonth(RgDate, 0), "m/d/yyyy"))

     Exit Sub
Erreur:
         Cible.ClearContents
         MsgBox "Sorry, date non trouvée."
     
End Sub