(RESOLU)Incrémentation sous condition en VB

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, derlig As Long, i As Long

    Application.EnableEvents = False

    derlig = Range("b" & Rows.Count).End(xlUp).Row
    Set plage = [A2:L65536]

    If Not Intersect(Target, [B2:B65536]) Is Nothing Then
        Target.Offset(0, -1) = Target.Offset(0, -1).Row - 1
        plage.Sort [B2], xlAscending
        For i = 2 To derlig
            Cells(i, 1) = i - 1
        Next i
    End If

    Application.EnableEvents = True
End Sub