Dupliquer ligne

Bonjour, est-il possible de dupliquer des lignes jusqu’à la suivante non vide ?

Par exemple dupliquer ma colonne A et B jusqu’à la ligne suivante et ainsi de suite

Merci

Bonjour

A mettre dans un module

Sub test()
Dim F1 As Range

Dim i As Integer
Dim j As Integer

Dim DernLigne As Long
DernLigne = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Feuil1").Range("A2:A" & DernLigne)

    For i = 1 To F1.Rows.Count

            If F1(i, 1).Value = "" Then
            F1(i, 1).Value = F1(i - 1, 1).Value
            F1(i, 2).Value = F1(i - 1, 2).Value
            End If

    Next i
End Sub

Merci cela fonctionne