XL 2019 Filtre avancé avec critères et résultat dans une autre feuille (VBA)

Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Application.EnableEvents = False
    With Target.Parent
        Dim rgData As Range, rgCriteria As Range, rgCopyToRange As Range
        Set rgData = .Range("A14").CurrentRegion
        Set rgCriteria = .Range("G4").CurrentRegion
        Set rgCopyToRange = Feuil1.Range("B3").CurrentRegion.Rows(1)
       
        rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgCopyToRange
    End With
    Application.EnableEvents = True
End Sub