XL 2021 Boucle copier-coller par nom d'en-tête de colonnes

Sub Test()
Feuille "Export", "Traitement"
End Sub
Sub Feuille(ShSource As String, ShCible As String)
Dim ColectSource As Collection, I As Integer
Set ColectSource = EntetesCollection(Sheets(ShSource))
With Sheets(ShCible).Range("A1").CurrentRegion
    .Range(.Cells(2, 1), .Cells(.Rows.Count + 2, .Columns.Count)).Delete
    For I = 1 To .Columns.Count
          Sheets(ShSource).Columns(ColectSource(.Cells(1, I).Text)).Copy .Cells(1, I)
    Next
End With
End Sub
Function EntetesCollection(Sh As Worksheet) As Collection
Dim I As Integer, Col As New Collection
With Sh.Range("A1").CurrentRegion
    For I = 1 To .Columns.Count
        Col.Add I, .Cells(1, I).Value
    Next
End With
Set EntetesCollection = Col
End Function

Sub CopieColonnes()
Application.ScreenUpdating = False
With Sheets("Paramètres")       ' Tableau liste colonnes
    DL = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    ListeCol = .Range("A2:A" & DL)
End With
With Sheets("Export")           ' Tableau export
    DL = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    DC = .Cells(1, .Columns.Count).End(xlToLeft).Column
    Export = .Range(.Cells(1, 1), .Cells(DL, DC))
End With
' Restitution
ReDim Trait(1 To UBound(Export), 1 To UBound(Export, 2))
Cells.ClearContents
For C = 1 To UBound(ListeCol)
    Nom = ListeCol(C, 1)                        ' Nom colonne
    For C2 = 1 To UBound(Export, 2)
        If Export(1, C2) = Nom Then
            For L = 1 To UBound(Export)
                Trait(L, C) = Export(L, C2)     ' Si ok alors on transfert la colonne
            Next L
        End If
    Next C2
Next C
[A1].Resize(UBound(Trait, 1), UBound(Trait, 2)) = Trait ' On restitue les données
End Sub

Sub Test()
Feuille Workbooks("Export.xlsx").Sheets("Export"), ThisWorkbook.Sheets("traitement")
End Sub
Sub Feuille(ShSource As Worksheet, ShCible As Worksheet)
Dim ColectSource As Collection, I As Integer
Set ColectSource = EntetesCollection(ShSource)
With ShCible.Range("A1").CurrentRegion
    .Range(.Cells(2, 1), .Cells(.Rows.Count + 2, .Columns.Count)).Delete
    For I = 1 To .Columns.Count
          ShSource.Columns(ColectSource(.Cells(1, I).Text)).Copy .Cells(1, I)
    Next
End With
End Sub
Function EntetesCollection(Sh As Worksheet) As Collection
Dim I As Integer, Col As New Collection
With Sh.Range("A1").CurrentRegion
    For I = 1 To .Columns.Count
        Col.Add I, .Cells(1, I).Value
    Next
End With
Set EntetesCollection = Col
End Function