Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=DarkGreen][B]'***Seule la colonne D est concernée par la fonction[/B][/COLOR]
If Application.Intersect(Target, Columns(4)) Is Nothing Or IsNumeric(Target) = False Or Target.Count > 1 Then Exit Sub
[B][COLOR=DarkGreen]'***Transforme une durée saisie 1:30 (Min:Sec) en 00:01:30
'***Nota : La saisie doit toujours être de la forme m:ss même si les minutes sont égales à zéro[/COLOR][/B]
Application.EnableEvents = False
Target.Value = Target.Value / 60
Target.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Application.EnableEvents = True
End Sub