XL 2010 Fermeture automatique d'un classeur.

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

MERCI sousou. je ne sais pas ce qui coince. mais, le fichier ne fonctionne pas.
ici, j'ai mis le code ci dessus sans résultat.

Itu n'as pas corrigé la procédure tempo

Merci baucoup sousou. ça marche.