Copier coller colonne en fonction d'une liste d'entête variable

Bonjour,

Dans le code ci-dessous, on copie-colle les colonnes d'un tableau qui ont pour nom "Entete 2", "Entete 3" et "Entete 5".

Je cherche à l'adapter pour copier-coller les colonnes qui ont pour nom les cellules de B2 à J2 (voire plus). Il faudrait que ce soit dynamique.

Pourriez-vous m'aider svp?

Merci bcp

Sub CopieCol()
Dim i&, j&, a(), Ws As Worksheet
a = Array("Entete 2", "Entete 3", "Entete 5")
Set Ws = Sheets("Obligations")
j = 1
ReDim td(UBound(a))
For i = 0 To UBound(a)
If Not IsError(Application.Match(a(i), Rows(1), 0)) Then
Columns(Application.Match(a(i), Rows(1), 0)).Copy Ws.Columns(j)
j = j + 1
End If
Next
Sheets(Ws.Name).Move After:=Sheets(Sheets.Count)
End Sub

Bonjour,

sur quel feuille est la liste cellules de B2 à J2 (voire plus) ?

les colonnes à copier sont sur quel feuille ?