Bonjour Loulou,
Tu obtiendras le résultat escompté en codant l'évènement Change de l'objet WorkBook de la façon suivante :
===============================================
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Sht = 'Feuil1' '<<<< A Adapter
Col = 'A' '<<<< A Adapter
Set Rng = Range(Sht & '!' & Col & ':' & Col)
If Sh.Name = Sht And Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort Key1:=Rng.Cells(1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
================================================
Pense à adapter les paramètres 'Sht' et 'Col' en indiquant respectivement la feuille et la colonne à trier automatiquement.
Attention, comme tu l'as demandé, seule la colonne sera trieé, si tu veux trier un tableau ou les lignes entiière en prenant cette colonne pour clé, il faudra modifier légèrement cette macro. Fais moi signe.
Bye.
Omicron