Heure et date mise a jour en continu sur un userform

Dim temps
Sub majHeure()
 UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
End Sub

Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

Sub afficheform()
   UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
   majHeure
End Sub

Private Sub UserForm_Initialize()
  majHeure
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
End Sub