Macro pour décaler des cellules

Bonjour,

j'ai des donnée sur la colonne A ( nombre indéterminé ) que je veux copier sur la feuille 2 colonne A mais en les décalant de 15 lignes.

quelqu'un peut m'aidé pour la macro ?

et si possible je veux répété ça jusqu’à A:1000 .

Merci pour votre aide

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
Dim lastRow As Long, lrow As Long, i As Long
Dim x As Byte
    Application.ScreenUpdating = False
    lastRow = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    lrow = 1
    With Feuil2
        .Cells.ClearContents
        For i = 1 To lastRow
            .Cells(lrow, 1) = Feuil1.Cells(i, 1)
            If i = 1 Then lrow = lrow + 14 Else lrow = lrow + 15
        Next i
    End With
End Sub

Merci beaucoup tout fonctionne parfaitement