Affichage De L'heure

je ne sais pas ou mettre donc je poste ici...
c'est pour avoir l'heure dans excel il se met dans la case A1



Dim bstop As Boolean
Dim HeureProchainAppel

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

Private Sub Workbook_Open()
HorlogeEnA1
End Sub

Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If

Sheets("Feuil1").Range("A1").Value = Format(Now, "HH:MM:SS")

'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:10")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False

End Sub

a la place de TimeValue "00:00:10...vous pouvez mettre 1