Sub QuiEstConnecté()
Dim boucle As byte
Users = ActiveWorkbook.UserStatus
For boucle = 1 To UBound(Users)
affiche = affiche & Users(boucle, 1) & vbTab & CDate(Users(boucle, 2)) & vbCrLf
Next boucle
MsgBox affiche, vbInformation, "Utilisateurs connectés :"
End Sub