vba dupliquer certaines en-tête sur plusieurs tableaux sur une même feuille

Sub test()
Dim TEnt(), LOt As ListObject
TEnt = Feuil2.[B9:AF9].Value
For Each LOt In Feuil2.ListObjects
   LOt.HeaderRowRange(1, 2).Resize(, UBound(TEnt, 2)).Value = TEnt
   Next LOt
End Sub

Sub CopierEnTêtes()
Dim entetes As Range, ncolab%, c As Range, P As Range
Set entetes = Feuil2.[B9:AF9] 'à adapter
ncolab = 20 'nombre de collaborateurs, à adapter
For Each c In entetes(1).EntireColumn.SpecialCells(xlCellTypeConstants)
        If c.Orientation = xlUpward Then _
            Set P = Union(IIf(P Is Nothing, Intersect(entetes.EntireColumn, c.EntireRow), P), Intersect(entetes.EntireColumn, c.EntireRow))
Next
Application.ScreenUpdating = False
If Not P Is Nothing Then entetes.Copy P: P.Offset(, ncolab).Columns.AutoFit 'copier-coller et ajustement largeur
'---réglage du zoom---
entetes.Parent.Visible = xlSheetVisible 'si la feuille est masquée
Application.Goto entetes.Parent.[A1], True 'cadrage
entetes(1, 0).Resize(, entetes.Count + 1).Select
ActiveWindow.Zoom = True
entetes.Parent.[A1].Select
End Sub

Sub Macro_inserer_une_ligne()
'Touche de raccourci du clavier: Ctrl+a
If CStr([B2]) = "" Then Exit Sub
Dim c As Range
With Feuil2.[A:A]
    Set c = .Find(CStr([B2]), , xlValues, xlWhole)
    If c Is Nothing Then MsgBox "Activité introuvable en colonne A...": Exit Sub
    Set c = .Find("=", c, xlFormulas, xlPart) 'formule SOUS.TOTAL
End With
c.EntireRow.Insert
If IsNumeric(Right(c(-1), 1)) Then c(-1).AutoFill c(-1).Resize(2) 'incréméntation éventuelle
End Sub