XL 2016 filtrer, copier et coller les données avec la macro

Sub tri_et_filtre()
' tri_des_données Macro
    Dim f As Worksheet, Plage As Range
    Application.ScreenUpdating = False
    Set f = ThisWorkbook.Sheets("Base")
    Set Plage = f.Range("D2:D" & Cells(Rows.Count, "B").End(xlUp).Row)
    Plage.Formula = "=LEFT(B2,3)"   ' Formule en col D : =GAUCHE(B2;3)
    Plage.Value = Plage.Value       ' Supprime formule, met valeurs.
    Plage.NumberFormat = "000"      ' Met le bon format
    Set Plage = f.Range("A1:D" & Cells(Rows.Count, "B").End(xlUp).Row)
    Plage.AutoFilter                ' Pose filtres en col  A:D
    Plage.AutoFilter Field:=4, Criteria1:="=321", Operator:=xlOr, Criteria2:="=326" ' filtrage sur 321 et 326
    Sheets("Agence 321").Select
    Plage.Copy Destination:=Sheets("Agence 321").[A1]   ' Colle tableau filtré
    Plage.AutoFilter
End Sub

Private Sub Worksheet_Activate()
Dim agence1, agence2, critere As Range
agence1 = 321: agence2 = 326 'modifiables
With Sheets("Base").[A1].CurrentRegion
    Set critere = .Cells(2, .Columns.Count + 2)
    critere = "=OR(LEFT(B2,3)=""" & agence1 & """,LEFT(B2,3)=""" & agence2 & """)"
    .AdvancedFilter xlFilterCopy, critere(0).Resize(2), CopyToRange:=[A1] 'filtre avancé copié
    critere = ""
End With
Me.Name = "Agences " & agence1 & "-" & agence2 'renomme la feuille
End Sub