Do ' Permet de trouver la première cellule (ligne) ou se trouve la date du début
lignedebut = lignedebut + 1
inter = DateValue(Replace(Range("A" & lignedebut), ".", ","))
Loop Until Format(inter, "dd.mm.yyyy hh:mm") = Format(debut, "dd.mm.yyyy hh:mm")