XL 2010 Macro pour copier des colonnes d'une feuille à l'autre en y insérant des colonnes vides entre

[manu49300]

Bonjour à tous.
Dans mon projet, j'ai besoin de copier un ensemble de colonne de la ligne 2 à 250 d'une feuille vers une autre feuille mais en intercalant des colonnes vides à certains endroits.
Origine Feuil1

Pour sur la Feuil2 avoir

Feuil 1 de la Colonne A à AD pour arriver sur la Feuil2 de la colonne A à la colonne AS soit 15 cas.

Merci à vous.

 

[pierrejean]

Bonjour

Sub copie()
Sheets("Feuil1").Range("A1:AD1").Copy Destination:=Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Select
For n = 1 To Columns.Count
If Left(Cells(1, n), 3) = "CAS" Then
   Columns(n + 1).Insert
End If
Next
End Sub

 

[manu49300]

Merci beaucoup pierrejean. Je l'ai adapté à mon tableau .