XL 2016 VBA : Copier ligne selon condition

=TEXTE(PLAFOND(A2;20)-20;"000")&"-"&TEXTE(PLAFOND(A2;20);"000")

=TEXT(CEILING(A2,20)-20,"000")&"-"&TEXT(CEILING(A2,20),"000")

Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub 'sécurité
    .Offset(1).Resize(.Rows.Count - 1).Columns(1).Name = "X"
    .Offset(1).Resize(.Rows.Count - 1).Columns(3).Name = "Y"
    .Columns(2).AutoFilter 1, IIf([AG1] = "", "*", [AG1])
End With
ChartObjects(1).Chart.ChartTitle.Text = IIf([AG1] = "", "000-400 MHz", [AG1] & " MHz")
With ChartObjects(1).Chart.Axes(xlCategory)
    If [AG1] = "" Then .MinimumScale = 0 Else .MinimumScale = Split([AG1], "-")(0)
    If [AG1] = "" Then .MaximumScale = 400 Else .MaximumScale = Split([AG1], "-")(1)
End With
ActiveCell.Activate
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Feuil1.[A1].CurrentRegion.Offset(1)
    If .Rows.Count = 1 Then Exit Sub 'sécurité
    .Resize(.Rows.Count - 1).Columns(1).Name = "X"
    .Resize(.Rows.Count - 1).Columns(3).Name = "Y"
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not Sh.Name Like "*###-###" Then Exit Sub
Application.ScreenUpdating = False
With Feuil1
    .[A1].CurrentRegion.Columns(2).AutoFilter 1, IIf(Sh.Name = .Name, "*", Sh.Name)
    If Sh.Name <> .Name Then
        Application.Goto Sh.[A1], True 'cadrage
        .ChartObjects(1).Chart.ChartArea.Copy 'copie le graphique
        Sh.Paste
        Sh.[A1].Copy Sh.[A1] 'vide le presse-papiers
        ActiveCell.Activate
    End If
End With
Sh.ChartObjects(1).Chart.ChartTitle.Text = Sh.Name & " MHz"
With Sh.ChartObjects(1).Chart.Axes(xlCategory)
    .MinimumScale = Split(Right(Sh.Name, 7), "-")(0)
    .MaximumScale = Right(Sh.Name, 3)
End With
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'---supprime le(s) graphique(s) pour alléger---
If Sh.Name Like "###-###" And Sh.ChartObjects.Count Then Sh.ChartObjects.Delete
End Sub

With Feuil1
    .[A1].CurrentRegion.AutoFilter 2, IIf(Sh.Name = .Name, "*", Sh.Name)