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