XL 2016 Horloge dans feuille de calcul Excel

Private Sub UserForm_Initialize()
Dim i&, num
  For i = 1 To 12
  num = i + (12 * Abs(Time > "12:00"))
  If num = 24 Then num = "00"
  Usf.Controls("lab" & i) = num
  Next
Hwnd = FindWindow(vbNullString, Usf.Caption)
Me.Caption = "Horloge"
End Sub

Private Sub UserForm_Initialize()
    Dim ctl As Control, ratioW#, ratioH#, wstate&
    With Application: wstate = .WindowState: .WindowState = xlMaximized:
        ratioW = Application.Width / Me.Width
        ratioH = Application.Height / Me.Height
        .WindowState = wstate
    End With
    With Me
        .StartUpPosition = 0: .Left = 0: .Top = 0
        .Width = (.Width * ratioW) - (.Width - .InsideWidth)
        .Height = (.Height * ratioH) - (.Height - .InsideHeight) + (.Width - .InsideWidth)
    End With
    For Each ctl In Me.Controls
        ctl.Move ctl.Left * ratioW, ctl.Top * ratioH, ctl.Width * ratioW, ctl.Height * ratioH
        Select Case TypeName(ctl)
        Case "TextBox", "Label", "Frame", "CommandButton", "MultiPage", "ListBox", "ComboBox", "CheckBox", "OptionButton"
            ctl.Font.Size = ctl.Font.Size * ratioH
        End Select
    Next

End Sub

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
    R$ = ""
    Select Case Feuille.Name
     Case "Feuil1": R$ = "b1:l1"
     Case "Feuil2": R$ = "b1:m1"
     Case "Feuil3": R$ = "b1:n1"
     Case "Feuil4": R$ = "b1:o1"
     Case "Feuil5": R$ = "b1:p1"
   End Select
   If R$ > "" Then
      Feuille.Activate
      Range(R$).Select: ActiveWindow.Zoom = True
      ActiveWindow.DisplayHeadings = False: Range("A1").Select
   End If
Next
End Sub