Salut Marie,
Voici une adaptation de ta macro qui copie la dernière ligne :
Sub Macrob1()
Dim Ligne As Long
Ligne = Range("B65536").End(xlUp).Row
Range("B" & Ligne & ":F" & Ligne).Select
Selection.Copy
Range("B" & CStr(Ligne + 1)).Select
ActiveSheet.Paste
Range("G" & CStr(Ligne + 1)).Select
Application.CutCopyMode = False
End Sub
La variable Ligne retient le numéro de la dernière ligne non vide dans la colonne B et effectue la copie juste en dessous.
A+
Horry