Function GroupeDateHeure()
Dim DateDeCreation
Dim HeureEnCours As Variant
DateDeCreation = Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
HeureEnCours = Split(Time, ":")
GroupeDateHeure = DateDeCreation & " " & Join(HeureEnCours, "-")
End Function