Erreur d'exécution '1004' La méthode Insert de la class Range a échoué lors de l'ajout de la colonne

Il semble assez facile, mais pas capable de find une solution de contournement.

Excel 2010. Objectif: append 22 colonnes vides à partir de B

Erreur: Erreur d'exécution '1004': la méthode Insert de la class Range a échoué

Code:

• Excel comptant une certaine plage de cellules dans la rangée si une autre colonne correspond à une colonne
• VBA Joining arrays comme s'ils étaient des tables de database relationnelles
• Comment prendre des caractères spéciaux dans la database lors de l'import à partir du file .csv?
• MongoDb find method avec parameters returnne les résultats vides
• Vb.net pour insert txt.file dans le model Excel

Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets(1).Select ActiveSheet.Tab.ColorIndex = xlColorIndexNone Dim WbPresent As Workbook Set WbPresent = ActiveWorkbook Dim FileData As Ssortingng FileData = "160125" Dim TabName As Ssortingng TabName = "IB Hire Plan - Hierarchy " & FileData Workbooks.Open Filename:= _ "\\chca6030.eur.beluni.net\m137557$\Documents\Makro VBA\ATR\Taleo\*.xlsm" Sheets("IB Hire Plan - Hierarchy").Select Sheets(3).Activate Sheets("IB Hire Plan - Hierarchy").Copy Before:=WbPresent.Sheets(1) Sheets("IB Hire Plan - Hierarchy").Select For colx = 2 To 23 Columns(colx).Insert Shift:=xlToRight Next* 

Était en train de vérifier une question similaire, mais n'a pas trouvé la bonne réponse pour cela.

• VBA Solver Final Values ​​As Double
• Pourquoi cette ligne génère-t-elle une erreur d'exécution?
• Convertir la saisie des données de la boîte de réception vers la saisie des données
• Comparaison de 2 feuilles Excel et return de données
• Comment faire pour boucler le code VBA pour effectuer les mêmes actions via une list de données