Bonjour Meegolo, bonjour le forum,
Désolé pour cette réponse tardive. Essaie avec la macro événementielle Change ci-dessous (à placer dans le composant Feuil5(Adherents)).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
ActiveWorkbook.Worksheets("Adherents").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Adherents").Sort.SortFields.Add Key:=Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending
With ActiveWorkbook.Worksheets("Adherents").Sort
.SetRange Columns(1)
.Header = xlNo
.Apply
End With
End Sub