While .Actif: Le = .Suivant: Ls = Ls + 1: TLgn(Ls) = Le
Ts(Ls, 0) = Te(Le, 1)
Ts(Ls, 1) = Te(Le, 4): If VarType(Te(Le, 5)) = vbDate Then _
Ts(Ls, 2) = IIf(Te(Le, 5) <= Maintenant, "Depuis", "Dans") & " " _
& DuréeEnClair(Abs(Te(Le, 5) - Maintenant)) Else Ts(Ls, 2) = "Indéterminable."
Ts(Ls, 3) = Format(Te(Le, 5), "dd/mm/yyyy hh:mm"): Wend