Public Function RetournerHeure(Optional DtOffSet As Variant) As Date RetournerHeure = Time If (Not IsMissing(DtOffSet)) Then 'Si là on en prend compte. RetournerHeure = TimeSerial(Hour(RetournerHeure), Minute(RetournerHeure), Second(RetournerHeure) + DtOffSet) 'Else End If End Function