Bonjour,
ENT() = INT() :
=INT((A1+"0:7:30")/"0:15")*"0:15"
mais si tu veux l'utiliser dans du code, cette formule ne marchera pas, il te faut la modifier comme ceci :
Dim Valeur As Single
Valeur = Int((Range("A1").Value + CDate("0:7:30")) / CDate("0:15")) * CDate("0:15")
MsgBox Valeur
comme tu utilises des heures formatées, il est plus propre de les entrer de cette façon :
Valeur = Int((Range("A1") + CDate("00:07:30")) / CDate("00:15")) * CDate("00:15")