Private Sub Workbook_open()
Application.ScreenUpdating = False
With Sheets("Feuil1")
If .Range("A1").Offset(1, 0).Value = "" Then
.Range("A1").Offset(1, 0).Value = Application.UserName
.Range("A1").Offset(1, 1).Value = Format(Now(), "ddd dd mmmm yyyy hh:mm")
ElseIf .Range("A1").Offset(1, 2).Value = "" Then
.Range("A1").Offset(1, 0).Value = Application.UserName
.Range("A1").Offset(1, 2).Value = Format(Now(), "ddd dd mmmm yyyy hh:mm")
End If
End With
End Sub