Bonjour
dans thisworkbook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Cmp = 30
End Sub
Puis:
Sub Tempo()
UsF.Frame1.Caption = "Fermeture dans : " & Cmp & " seconde" & IIf(Cmp > 1, "s", "")
If Cmp > 0 Then
Cmp = Cmp - 1
Else
ThisWorkbook.Close savechanges:=True
Unload UsF
End If
Application.OnTime Now + TimeValue("00:00:01"), "Tempo", 0
End Sub