Dim monHeure As Date Dim maChaine As String monHeure = "08:00" ' Boucle tant qu'on n'a pas dépassé 18h00 Do While DateDiff("n", monHeure, "17:59") > 0 maChaine = Format(monHeure, "hh:nn") ' 08:00 monHeure = DateAdd("n", 15, monHeure) ' ajoute 15 min (abrégé 'n' voir l'aide) maChaine = maChaine & " - " & Format(monHeure, "hh:nn") ' 08:00 - 08:15 Debug.Print maChaine DoEvents Loop