XL 2021 Incrémentation

Sub Redistrib()
Dim TabInit() As Variant 'déclaration du tableau des données à traiter
Dim TabFinal() As Variant 'déclaration du tableau de résultat
Dim Pas As Long 'déclaration du pas

    Pas = 4 'on définit le pas à 4
    With Sheets("Feuil1") 'avec la feuille 1
        TabInit = .Range("B3").CurrentRegion.Value 'on met les données dans le tablo
        ReDim TabFinal(1 To Pas * UBound(TabInit, 1), 1 To 1) 'on dimensionne le tableau final
        
        For i = LBound(TabInit, 1) To UBound(TabInit, 1) 'pour chaque ligne du tableau init
            TabFinal((i - 1) * Pas + 1, 1) = TabInit(i, 1) 'on place la donnée à la bonne position dans le tableau final
        Next i
    End With
    
    With Sheets("Feuil2") 'dans la feuille 2
        .Range("A3").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal 'on place le tableau de résultat à partir de A3
    End With
End Sub