Avec workbook.close, mon classeur se ferme puis se rouvre...

MEEEEEEEEEEEEEEEEEEERRRRRRRRRRRRRRRRRRRRRRRRCCCCCCCCCCCCCCCCCCCCCCIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
tu es géniale... ca marche encore aujourd'hui ;o)

bonne journée à toi

MEEEEEEEEEEEEEEEEEEERRRRRRRRRRRRRRRRRRRRRRRRCCCCCCCCCCCCCCCCCCCCCCIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII tu es géniale...

ecoute, si c'est pour me dire des choses comme ça, n'hésite pas à me
faire part de tous tes problèmes Excel, surtout le matin quand le
cerveau embrouillé a du mal à fonctionner...
:p
Je suis ravie d'avoir pu t'être utile... :)
Passe une bonne journée toi aussi, donc
PS : si je peux me permettre un dernier conseil, pour l'avenir, pense
aussi à utiliser (en plus du pas à pas) le Msgbox 'la valeur dont tu
n'es pas sur...' en cours de procédures... (bn après ici je sais pas
si ca aurait servi à gd chose)
byye !
Céline

MEEEEEEEEEEEEEEEEEEERRRRRRRRRRRRRRRRRRRRRRRRCCCCCCCCCCCCCCCCCCCCCCIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII tu es géniale...

tu as raison, cela ne remettait pas mon compteur à 0. en fait il me faut une
ligne supplémentaire pour annuler le compteur précédent.

Merci encore pour ton aide.

Voici le code final, j'ai tout remis dans l'objet woorkbook car ca ma rche
aussi et je préfère voir le code en une fois :

Option Explicit
Const delai = "00:00:30"
Public dat As Date

Private Sub Workbook_Open()
dat = Now + TimeValue(delai)
Application.OnTime dat, "thisworkbook.fermefichier"
Worksheets("Liste").Range("A6:i6").Select
ActiveWindow.Zoom = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
minuteur
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal T arget
As Range)
minuteur
End Sub

Sub minuteur()
Application.OnTime EarliestTime:=dat,
Procedure:="thisworkbook.fermefichier", Schedule:=False
dat = Now + TimeValue(delai)
Application.OnTime EarliestTime:=dat, Procedure:="thisworkbook.fe rmefichier"
End Sub

Sub fermefichier()
'beep: beep: beep
Application.Wait Now + TimeValue("00:00:03")
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub