inserer des colonnes de façon automatique dans plusieurs feuilles d'un même fichier

Paf à dit:

Bonjour

a priori:

Code:

Sub MacroQuiNeMarcheQuuneFois()
 Dim NbCol As Integer, i As Integer, Sh As Worksheet

 NbCol = 40  'Nombre de colonnes à adapter
 Application.ScreenUpdating = False
 For Each Sh In Worksheets
    For i = 9 To 3 Step -2
        Sh.Columns(i).Copy
        Sh.Columns(i).Resize(, NbCol).Insert Shift:=xlToRight
    Next
 Next
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
End Sub

A n'utiliser qu'une fois !
à la première utilisation on va copier et insérer les colonnes I; G; E et C (soit de 9 à 3 step -2 )
pour une deuxième utilisation , les colonnes 9 à 3 step-2 ne seraient plus les bonnes.

A+

Cliquez pour agrandir...

Merci je vais essayer et je te tiens au courant
Bonne soirée

Cliquez pour agrandir...