Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas&, s
pas = 14 'à adapter
If InStr(Target, ".") = 0 Then Exit Sub
Cancel = True
s = Split(Target, ".")
s(UBound(s)) = Val(s(UBound(s))) + pas
Target = Join(s, ".")
End Sub