XL 2019 Calcul temps macro

Public TempsEcoulé
Sub Début()
    TempsEcoulé = Timer ' Enregistrement du temps de départ
End Sub
Sub Fin()
    If TempsEcoulé = 0 Then Exit Sub
    TempsEcoulé = Timer - TempsEcoulé
    If TempsEcoulé > 5 Then     ' Mettre 600 pour 10 minutes ( 600 secondes )
        UserForm1.Show
        TempsEcoulé = 0
    Else
        [G9] = ""       ' Effacement commentaire
    End If
End Sub

Private Sub CommandButton1_Click()
    [G9] = UserForm1.TextBox1
    Unload UserForm1
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = 1 Or Target.Column > 2 Or Target(1) <> "" Then Exit Sub
Cancel = True
If Target.Column = 2 Then If Target(1, 0) = "" Then Set Target = Target(1, 0)
Target = Now
If Target.Column = 2 Then If Target - Target(1, 0) > 10 / 1440 Then Target(1, 2) = "Justification": Justification.Show
End Sub