Salut,
Pour rajouter une ligne à la fin de ton tableau tu peux utiliser: à partir de la cellule active.
with sheets("Le nom de ta feuille1")
.range([A65536].end(xlup)(2),[D65536].end(xlup)(2))=sheets("Le nom de ta feuille2").range(acticell,activecell.offset(0,3)).value
end with
Pour le 2 eme point en mettant dans le module de Thisworbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
sheets("Le nom de ta feuille1").activate
End Sub
A+++