Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub
Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub