' defini une fonction pour ajouter un 0 devant
function AddLeading(sNumber)
   if sNumber < 10 Then
      AddLeading = "0" & sNumber
   else
      AddLeading = CStr(sNumber)
   end if
end function
 
' obtient la date courante
sTimeNow = Now()
sHour = AddLeading(Hour(sTimeNow))
sMinute = AddLeading(Minute(sTimeNow))
sSecond = AddLeading(Second(sTimeNow))
 
' demande une heure à l'utilisateur au format hh:mm:ss
sTimeNow = InputBox("Saisir l'heure à partir de laquelle vous souhaitez décompter le temps", _
                    "Compte à rebours", _
                     sHour & ":" & sMinute & ":" & sSecond)
 
' obtient une heure au format hh:mm:ss
sTimeDiff = InputBox("Saisir le nombre d'heures, minutes et secondes au format hh:mm:ss", "Compte à rebours", "00:00:00" )
 
' eclate les composantes de l'heure dans un tableau
aTimeDiff = Split(sTimeDiff, ":" )
 
' calcul de décompte
sTimeResult = DateAdd("h", aTimeDiff(0), sTimeNow)    ' heures
sTimeResult = DateAdd("n", aTimeDiff(1), sTimeResult) ' minutes
sTimeResult = DateAdd("s", aTimeDiff(2), sTimeResult) ' secondes
 
' affiche le résultat
sHourResult = AddLeading(Hour(sTimeResult))
sMinuteResult = AddLeading(Minute(sTimeResult))
sSecondResult = AddLeading(Second(sTimeResult))
MsgBox "Dans " & sTimeDiff & " heures à partir de " & sTimeNow & " il sera " & sHourResult & ":" & sMinuteResult & ":" & sSecondResult & " !", 0, "Compte à rebours"