CONVERSION DE SECONDE AU FORMAT HH:MM:SS

Public Function SecondeEnHeure(ByVal Seconde As Long) As String
  Dim HH, MM, MMsec, SS As Long
  Dim HHstr, MMstr, SSstr As String
  
  HH = Int(Seconde / 3600)
  MMsec = Seconde - (HH * 3600)
  MM = Int(MMsec / 60)
  SS = MMsec - (MM * 60)
  If SS < 10 Then
    SSstr = "0" + Trim(Str(SS))
  Else
    SSstr = Trim(Str(SS))
  End If
  If MM < 10 Then
    MMstr = "0" + Trim(Str(MM))
  Else
    MMstr = Trim(Str(MM))
  End If
  If HH < 10 Then
    HHstr = "0" + Trim(Str(HH))
  Else
    HHstr = Trim(Str(HH))
  End If
  SecondeEnHeure = HHstr & ":" & MMstr & ":" & SSstr
End Function