Trier les données d'un tableau

Bonsoir à tous, j'ai une petite question, j'ai un tableau dont les données changent automatiquement, je voudrais faire un trie en ordre croissant d'une colonne, mais le trie il faudrait qu'il soit automatiquement a chaque changement des valeurs du tableau

svp c'est vraiment urgent merci bien

Bonjour le forum,

S'il s'agit d'ajout de données :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    nom = Target
    [A1:A1000].Sort key1:=[A1]

  End If
End Sub

merci mbbp

Bonjour,

Bonjour mbbp,

Même principe, mais pour des données mises sous forme de tableau.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Target.ListObject Is Nothing Then
        With Me.ListObjects(1)
            .Sort.SortFields.Add .ListColumns(1).DataBodyRange, xlSortOnValues, xlAscending
            .Sort.Apply
            .Sort.SortFields.Clear
        End With
    End If
End Sub