Private Sub Worksheet_BeforeDoubleClick(ByVal Cible As Range, Contremander As Boolean)
Dim i&, p$, n$, v()
With Cible
If .Column = 1 Then
For i = 1 To .Row - 1
p = .Offset(-i).Value
If p Like "*-[0-9]*" Then Exit For
Next
If i < .Row Then
n = Mid$(p, InStrRev(p, "-") + 1, 99)
If IsNumeric(n) Then
v = .Resize(1, 3).Value
v(1, 1) = Split(p, "-")(0) & "-" & 1 + n
v(1, 3) = Date
.Resize(1, 3).Value = v
End If
End If
Contremander = True
End If
End With
End Sub