Macro pour incrémenter une texte par click, dans une colonne...

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a5:a" & [c65000].End(xlUp).Row)) Is Nothing Then
    If Target.Value = "" Then
        If Target.Offset(, 2).Value Like "*Devis*" Then
            Target.Value = "Devis accepté"
            Else: Target.Value = "Facture réglée"
        End If
    Else: Target.ClearContents
    End If
    Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    'macro de thebenoit 59
    If Not Application.Intersect(Target, Range("A5:A" & [C65000].End(xlUp).Row)) Is Nothing Then
        If Target.Value = "" Then
            If Target.Offset(, 2).Value Like "*Devis*" Then
'Cells(Target.Row, 137) = "X"
 Cells(Target.Row, 137).Select
                Target.Value = "Devis accepté"
            Else: Target.Value = "Facture réglée"
            End If
        Else: Target.ClearContents: Cells(Target.Row, 137) = ""
        End If
        Cancel = True
    End If
End Sub

            If Target.Offset(, 2).Value Like "*Devis*" Then
                Target.Value = "Devis accepté"
                Target.Offset(, 136).Value = InputBox("Ajouter un acompte ?", "Acompte")
            Else: Target.Value = "Facture réglée"