Ajouter des feuilles qui ont les noms des colonnes d'une autre feuille

Bonsoir les amis! 'j'ai un peu de difficulté à modifier mon code pour pouvoir ajouter des feuilles automatiquement qui ont les noms des colonnes qui se situent dans une autre feuille. iSpalten est un array qui contient le nombre de colonnes que je dois évaluer (Copier leurs donné dans une autre feuille qui contient le nom de la colonne "Maschinensteuerung"). Dans ce cas la, mon array contient le nombre 3 et 5 donc je dois copier la colonne C et E , chacune dans sa propre feuille qui contient son nom. Si le nom est le même (Ce qui est le cas ici), ajouter un nombre a la feuille par exemple "Maschinensteuerung1".

wb est le Workbook qui contient le fichier avec les colonnes qu'on doit évaluer. wb2 est mon nouveau Workbook ou je dois ajouter les feuilles avec les colonnes.

J'ai essayé d'être clair, si vous avez des questions n'hesitez pas s'il vous plait, j'apprecierai tout aide.

nombre_colonnes=InputBox("Combien de colonnes voudez vous évaluer")

For j = 0 To nombre_colonnes- 1

iSpalten(j) = InputBox("Quelles colonnes voudrez vous évaluer?")

Next j

For z = 0 To nombre_colonnes - 1

wb2.Sheets("Tabelle1").Columns(1).Value = wb.Sheets(strFile).Columns(x).Value

Next z