Merci pour vos réponses;
Voilà Jean-Eric
Dim HPSF As Date
HPSF = Application.WorksheetFunction.VLookup(AncTour, Sheets("Tournées").Range("A1:M109"), 13, FAUX)
J'ai essayé de faire
'HPSF = Format(HPS, "jj/mm/aaaa hh:mm")
Puisque c'est le format que je veux avoir mais ca marche pas.
Ioxxy Je vois pas ou est ce que je pourrais ajouter ta ligne ?