Re : One Time
Je suis presque sûr que tu as du collé ce morceau de code dans un module1 ou quelque chose comme ça.
Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub
doit OBLIGATOIREMENT être collé dans ThisWorkbook,
qui n'est pas un module ordinaire...