Suite numérique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim derlig As Long, c As Range, rep As Long
    If Target.Column <> 1 Or Target <> "" Then Exit Sub
    Cancel = True
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    rep = MsgBox("Chèque ?", vbQuestion + vbYesNoCancel, "Chèque-CB")
    Select Case rep
    Case vbYes
        Set c = [A:A].Find("Ch ", after:=Cells(derlig + 1, 1), LookIn:=xlValues, lookat:=xlPart, SearchDirection:=xlPrevious)
        If c Is Nothing Then
            Target = "Ch "
        Else
            Cancel = True
            Target = "Ch " & Format(Split(c, " ")(1) + 1, "0000000")
            Target.Offset(, 1).Select
        End If
    Case vbNo
        Cancel = True
        Target = "CB"
        Target.Offset(, 1).Select
    End Select
End Sub