VBA - Copier une ligne et l'insérer dans la ligne inférieure

Sub copyRowToBelow()
    Dim rng As Range
    Set rng = Range("A1") ' <~~  Change this

    Do While (rng.Value <> "")
        ' Insert a row below the current one
        rng.Offset(1).Insert

        ' Copy the current row and paste it into the row we just inserted
        rng.EntireRow.Copy rng.Offset(1)

        ' Set the range declaration for 2 rows below the current one
        Set rng = rng.Offset(2)
    Loop
End Sub

La ligne marquée ("Change this") peut être déclarée dans le code, ou vous pouvez la remplacer par Set rng = ActiveCell si vous voulez qu'elle s'exécute à partir de la cellule sur laquelle l'utilisateur travaille au moment de l'exécution de la macro.

Les commentaires ne sont pas nécessaires pour le code, ils sont là uniquement pour vous aider à mieux connaître VBA.

Sélectionnez la cellule à partir de laquelle vous voulez commencer à copier et exécutez cette macro.

Dim myCell
Set myCell = ActiveCell

While ActiveCell.Value <> ""
    Rows(ActiveCell.Row).Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    myCell.Offset(1, 0).Select
    Set myCell = ActiveCell
Wend