Private Sub UserForm_Terminate()
End
End Sub
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
Application.AskToUpdateLinks = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
Application.AskToUpdateLinks = False
End Sub
Private Sub Workbook_Open()
[Connexions!a1] = Environ("username")
Sheets("Connexions").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = Now
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Feuil1").Select
Jouer_WAV
Randomize
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
Desactiver_WAV
End Sub