Copier une ligne d'une feuille à la fin d'une autre feuille

Bonjour, Après des heures de recherche et de test avec l'aide de ce formidable forum, j'ai tenté de construire une macro pour copier une ligne qui est toujours la même d'une feuille sur la première ligne libre d'une autre feuille, dont le tableau à la même structure(il y a en plus 2boutons qui sont "insérer ligne" et "valider ligne" ) si je teste sur une même feuille, ça marche (exemple 1) mais si je demande de changer de feuille, ça bloque sur la sélection de la première ligne libre (Cells(65535, 1).End(xlUp)(2).Select de l'exemple 2), je vois dans ma première feuille la ligne se sélectionner, le presse papier à bien copié le contenu des cellules, la feuille de destination est affichée, et après plus rien.Merci d'avance à la personne qui pourra m'éclairer.

1-----------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
Sheets("feuil5").Select
Range("A3:g3").Select
Selection.Copy
Sheets("feuil5").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
CommandButton1.Visible = False
End Sub


Private Sub CommandButton2_Click()
CommandButton1.Visible = True
Rows("3:3").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
CommandButton2.Visible = False
End Sub
2---------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
Sheets("feuil5").Select
Range("A3:g3").Select
Selection.Copy
---->Sheets("feuil6").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
CommandButton1.Visible = False
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Visible = True
Rows("3:3").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
CommandButton2.Visible = False
End Sub