Salut Chris,
déjà une chose, si la ligne jaune est en L2...
Sub Inserer()
'
derln = Range("A" & Rows.Count).End(xlUp)(2).Row
Range("A2:G3").Copy Destination:=Range("A" & derln)
Range("A2:G3").ClearContents
'
End Sub
Attention, et l'erreur vient peut-être de là, les cellules de la colonne A, en L2 ET surtout L3 ne doivent pas rester vides puisque le calcul de dernière ligne est basé sur leur présence!
Si la colonne A n'est pas systématiquement complétée à l'encodage, il faudra procéder autrement...
A toi de dire ce qu'il en est!
A+