Bonjour Hervepaco, bonjour je forum,
Essaie comme ça :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("A13:A27")) Is Nothing Then Exit Sub
Cancel = True
Target.Value = Format(TimeSerial(Hour(Time), Minute(Time) + 10, 0), "hh:mm")
End Sub