Re : Affichage page
Bonsoir
En attendant mieux:
À mettre dans le workbook:
Private Sub Workbook_Open()
MsgBox "Visualisation de 15 secondes"
Sheets("Feuil2").Activate
PauseTime = 15
Start = Timer
Do While Timer < Start + PauseTime
Loop
Sheets("Feuil1").Activate
End sub
Temjeh