Bonjour, sasha
à placer dans le code de la feuille (Clic droit avec la souris sur l'onglet de la feuille, Visualiser le code)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneDer As Long
Dim Colonne As Integer
Colonne = Target.Column
LigneDer = Cells(Rows.Count, Colonne).End(xlUp).Row
Range(Cells(2, Colonne), Cells(LigneDer, Colonne)).Sort _
key1:=Cells(2, Colonne), order1:=xlAscending, dataoption1:=xlSortNormal, Header:=xlNo
End Sub
Cette macro s'exécute à chaque changement des valeurs de la feuille
Amicalement
Pierrot