Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim chaine As String, nb As Integer, vchaine As String, maval As Integer
If Target.Column = 1 Then
Target.Value = Date
Cancel = True
chaine = Target.Offset(-1, 1)
nb = InStr(1, chaine, "-")
vchaine = Left(chaine, nb)
maval = Right(chaine, Len(chaine) - nb)
Target.Offset(0, 1) = vchaine & CInt(maval) + 1
End If
End Sub