Bonsoir Jacjk
Un code à placer dans ta feuille avec Alt + F11
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1:A1000')) Is Nothing Then
Range('A1:A1000').Sort Key1:=Range('A1'), Order1:=xlAscending
End If
End Sub
Tu peux remplacer le A1:A1000 par un nom de plage nommée c'est plus pratique
@+GD