Bonjour,
Tu peux tester la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Adddress <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target = Target / 60
Application.EnableEvents = True
End Sub
En espèrant que cela t'aide ...