'TRADUCTION DE LA DATE EN JOUR ET HEURE
.ListItems(i).ListSubItems.Add , , _
Format(.ListItems(i).ListSubItems(3), "dddd d mmmm yyyy ")
'TRADUCTION DE LA DATE EN JOUR ET HEURE
.ListItems(i).ListSubItems.Add , , _
Format(.ListItems(i).ListSubItems(3), "hh ""h.""mm")