Affichage De L'heure

[bingo57]

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