Bonsoir olive7677, bienvenue sur XLpages.com

Une remarque en premier lieu : ton classeur exemple comprend une bonne quantité d'autres macros dont certaines ne sont pas franchement copiées à la bonne place. Mais bon...

Pour répondre à ta demande, tu devrais pouvoir tester le code suivant :

Sub RecopieLigne()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Plage As Range
Dim L As Long
    With Sheets("Test")
        'Dernière ligne colonne 7 (G)
        L = .Cells(.Rows.Count, 7).End(xlUp).Row
        'Définit la plage A:Y de la ligne L
        Set Plage = .Range(.Cells(L, 1), .Cells(L, 25))
        'Copie la plage en décalant d'une ligne vers le bas
        Plage.Copy Destination:=Plage.Offset(1)
    End With
End Sub

En espérant t'avoir dépanné.

Bien cordialement,