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.
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
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