Private Sub Workbook_Open()
Set Usn = Sheets("List").Columns("A").Find(what:=Application.UserName, LookIn:=xlValues, lookat:=xlWhole)
Ligne = Sheets("List").Range("A65536").End(xlUp).Offset(1, 0).Row
If Not Usn Is Nothing Then
Cells(Usn, 2).Value = Cells(Ligne, 2).Value + 1
Else
Sheets("List").Range("A" & Ligne).Value = Application.UserName
Cells(Ligne, 1).Value = Application.UserName
Cells(Ligne, 2).Value = "1"
End If
End Sub