Private Sub Worksheet_Change(ByVal Target As Range)
'Inhibe la gestion des événements
'cela évite de retour ici lors de la modification de la valeur de la cellule
Application.EnableEvents = False
'Change la valeur saisie en valeur Temps
If IsNumeric(Target) Then Target = TimeSerial(Fix(Target / 100), (Target Mod 100) * 100, 0)
'Réactive la gestion des événéments
Application.EnableEvents = True
End Sub