1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub Test()
Dim LastCol As Integer, i As Integer, j As Integer
With Worksheets("Feuil1") 'A adpter au nom de ta feuille
j = 2
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 'N° de colonne de la dernière cellule remplie de la ligne 1
For i = 5 To LastCol Step 4 'on boucle de la colonne 5 à la dernière avec un pas de 4 colonnes
j = j + 1 'on incrémente la ligne de collage
.Range(.Cells(2, i), .Cells(2, i + 3)).Cut .Range("A" & j) 'on coupe les 4 cellules à partir de la ième cellule qur la ligne 2 qu'on colle en Aj
Next i
.Range(.Cells(1, 5), .Cells(1, LastCol)).EntireColumn.Delete 'on supprime les colonnes à partir de la 5ème (suppression des entêtes)
End With
End Sub |
Partager