Salut Jacques87 et Franck
je vais faire court :
Private Sub Worksheet_Change(ByVal Target As Range)
Selection.Sort Key1:=Range('A:A'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Une seule instruction suffit.
Ca marche dès introduction d'une valeur dans une case quelconque de la colonne A.
A Adapter bien entendu selon les cas
A+, je vais manger, il est l'heure