J'en avais besoin, donc je l'ai fait. Mais je pense que l'on peut faire plus simple.
Function ConvertSeconds(sec#) As String
'Converti des desondes en années | jours | heures | minutes | secondes
'Magic_Doctor
Dim a#, j#, h As Byte, mn As Byte, s As Byte, suf1$, suf2$
j = Int(sec /...