Bonjour,
par exemple, a mettre dans le code de thisworkbook
Private Sub Workbook_Open()
With Sheets("sheet1")
.Cells(1, 1) = Application.UserName ' excel username
.Cells(1, 2) = Environ("username") ' OS username
.Cells(1, 3) = Now 'date + heure
End With
End Sub