Incrémenter valeur par double-clic [RÉSOLU]

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

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)
        If chaine = "" Then MsgBox "Erreur": Exit Sub
        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

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Address <> [A65000].End(xlUp)(2).Address Then Exit Sub
  Dim s
  s = Split(R(0, 2), "-")
  R = Date: R(1, 2) = s(0) & "-" & s(1) + 1
  R(2, 1).Select
End Sub