Sub HorlogeEnc3()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:='ThisWorkbook.HorlogeEnc3', Schedule:=False
Exit Sub
End If
HeureProchainAppel = (Application.WorksheetFunction.RoundUp(Now * (1440), 0)) / 1440
Sheets('feuil1').Range('c3').Value = Format(Now, 'HH:MM:SS')
'Nouveau paramétrage de OnTime
Application.OnTime HeureProchainAppel, 'ThisWorkbook.HorlogeEnc3', False
End Sub