Trie automatique

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, [m:m]) Is Nothing Then Range("a1").CurrentRegion.Sort Range("b1"), xlAscending, Header:=xlYes
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$
v = Cells(Target.Row, 2)
[A1].CurrentRegion.Sort [B1], xlAscending, Header:=xlYes 'tri
Cells([B:B].Find(v, , xlValues, xlWhole).Row, Target.Column).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$, i&, j%
v = Cells(Target.Row, 2)
With [A1].CurrentRegion
  .Sort [B1], xlAscending, Header:=xlYes 'tri
  i = [B:B].Find(v, , xlValues, xlWhole).Row
  j = Rows(i).Find("").Column 'colonne de la 1ère cellule vide de la ligne
  Cells(i, IIf(j > .Columns.Count, Target.Column, j)).Select
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Then Exit Sub
Dim v$
v = Cells(Target.Row, 2)
[A1].CurrentRegion.Sort [B1], xlAscending, Header:=xlYes 'tri
Cells([B:B].Find(v, , xlValues, xlWhole).Row, 13).Select
End Sub