Macro pour heure et date mise a jour automatiquement

Bonjour,

j' ai un fichier excel qui reste ouvert en permanence et j aimerais que dans une cellule l'heure et la date se mettent a jour automatiquement.

ne sachant pas mettre mon fichier je vous mets les lignes de code actuel

Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub

Private Sub Workbook_Open()
HorlogeEnA1




'temp = Now + TimeValue("00:00:10")
'Cells(1, 1) = temp
'Application.OnTime temp, "arret"

End Sub

Sub HorlogeEnA1()
If bstop = True Then
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If

Sheets("Num").Range("C17").Value = CDate(Date)
Sheets("Num").Range("C18").Value = Format(Now, "HH:MM:SS")

temp = Format(Now, "HH:MM:SS"): If temp = "18:00:00" Then Application.Quit: Application.DisplayAlerts = False 'Arrête le programme à 18:00 hr



HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False
End Sub



Merci d'avance pour votre aide