XL 2021 Encadrement de cellule sur tableau dynamique

Sub Encdrement()
    With Sheets("Feuil1").Range("I2:" & Sheets("Feuil1").Cells.SpecialCells(xlLastCell).Address).Borders
        .LineStyle = xlNone ' Effacer toutes les bordures existantes
        .LineStyle = xlContinuous ' Recréer des bordures autour de chaque cellule
        .Weight = xlThin ' Recréer des bordures autour de chaque cellule
        .ColorIndex = xlAutomatic ' Recréer des bordures autour de chaque cellule
    End With
End Sub

Sub Encdrement()
     ActiveWorkbook.Save
     With Sheets("Feuil1")
          Set c1 = .Cells.Find("*", after:=.Range("A1"), searchorder:=xlRows, searchdirection:=xlPrevious)     'dernière cellule en bas
          Set c2 = .Cells.Find("*", after:=.Range("A1"), searchorder:=xlColumns, searchdirection:=xlPrevious)     'dernière cellule non-vide de la première ligne
          'MsgBox c1.Address & vbLf & c2.Address
          With .Range("I1")                  'votre coin gauche
               .Resize(, Columns.Count - .Column + 1).EntireColumn.Borders.LineStyle = xlNone     'supprimer les bordures existantes
               .Resize(c1.Row - .Row + 1, Application.Max(1, c2.Column - .Column + 1)).Borders.LineStyle = xlContinuous     'établir des nouvelle bordures
          End With
     End With
End Sub

=ET(LIGNE()<=EQUIV("ZZZ";$A:$A;1);COLONNE()<=EQUIV(9^9;$1:$1))

EQUIV("ZZZ";$A:$A;1);

EQUIV(9^9;$1:$1)

Sub Encadrement()
Dim debut#
   debut = Timer
   Application.ScreenUpdating = False
   Cells(2, "i").Borders.LineStyle = xlContinuous
   Cells(2, "i").Copy
   Range(Cells(2, "i"), Cells(Cells(Rows.Count, "a").End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)).PasteSpecial xlPasteFormats
   MsgBox Format(Timer - debut, "0.00\ sec.")
End Sub