Dans un module :


Function CalculDiffDate(Date1 As Date, Date2 As Date, AffichageJour As Boolean) As String
Dim intMinute As Long
Dim intnbJour As Integer, intnbHeure As Integer, intnbMinute As...