bonjour le fil, bonjour le forum,
Pour le premier point (à mettre dans le composant ThisWorkbook) :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For I = 1 To 3
Sheets(I).Rows.Delete
Next I
ThisWorkbook.Save
End Sub
Pour le second, pas assez d'infos...