2020-07-28 18:58:16 +02:00
|
|
|
Sub DUPLICATION()
|
2020-08-06 16:50:50 +02:00
|
|
|
With Sheets("SHEET1")
|
2020-07-28 18:58:16 +02:00
|
|
|
dl = .Cells(Rows.Count, 1).End(xlUp).Row
|
2020-08-06 16:50:50 +02:00
|
|
|
Set ws = Sheets("SHEET2")
|
|
|
|
NB = 6
|
2020-07-28 18:58:16 +02:00
|
|
|
k = 1
|
|
|
|
For i = 1 To dl
|
2020-08-06 16:50:50 +02:00
|
|
|
.Cells(i, 1).Copy ws.Cells(k, 1).Resize(NB)
|
|
|
|
k = k + NB
|
2020-07-28 18:58:16 +02:00
|
|
|
Next i
|
|
|
|
End With
|
|
|
|
End Sub
|
2020-08-06 16:50:50 +02:00
|
|
|
|