Boucle copier coller colonne avec step de 2

Bonjour,

Je souhaiterais créer une boucle pour ce code :

Actuellement je vais juqu'à la colonne 22 mais il faudrait aller jusqu'à la colonne 170 avec un step de 2 à chaque fois.

Pouvez-vous m'aider ?

Bonjour,

Le forum dispose d'un outil pour mettre en forme le code, ce qui est bien plus utile pour le retravailler qu'une capture d'écran :

Pour votre macro, un essai :

Sub InsertColumn()

Dim Col As Integer

For Col = 18 To 170 step 2
    Columns(Col).Insert shift:=xlToRight
    Columns("P:P").Copy Columns(Col)
Next Col

End Sub

Sinon généralement, quand on fait des insertions/suppressions, on commence par le dernier élément, ce qui évite les mauvaises manip' liées au déclage. Exemple :

Sub InsertColumn()

Dim Col As Integer

For Col = 94 To 18 step -1
    Columns(Col).Insert shift:=xlToRight
    Columns("P:P").Copy Columns(Col)
Next Col

End Sub

Super merci beaucoup !