Archiver ligne par copier coller

Bonjour,
j'aimerais selectionner une ligne dans une feuille1 et la coller dans une feuille2 et par une macro.
voici mes codes ca marche mais le pb c'est que je veux que lorsque je réitère l'action la nouvelle ligne de la feuille1 se colle sur la ligne suivante de la feuille 2 pour garder la permière ligne copier.

Selection.Copy

Sheets("electricite").Select
Range("F10").Select

ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("journal").Select