Private Sub Workbook_Open()
'--- ouverture classeur, met en plein écran ---
Application.DisplayFullScreen = True
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Static Temps As Date
If Temps <> 0 Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Else
Temps = Now + TimeSerial(0, 0, 1)
Do: DoEvents: Loop Until Now > Temps
End If
Temps = 0
End Sub