Macro pour savoir qui consulte un document

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

Sub consultations(quiquand As String)
Const NFichier As String = "C:\TEMP\ouvertures.txt"
Dim FNm As Integer
    FNm = FreeFile
    Open NFichier For Append As #FNm
    Print #FNm, quiquand
    Close #FNm
End Sub
Private Sub Workbook_Open()
consultations _
        ThisWorkbook.Name _
        & " a été ouvert par " & _
        Application.UserName & _
        ", le : " & Format(Date, "dddd dd mmmm yyyy") & _
        " à (" & Format(Time, "hh:mm:ss") & ")."
End Sub