Trie automatique de mes cellules

Salut ,

J'ai un format de base dans lequel j'entre mes données et lorsque j'appui sur "Ajout", il se transfère dans mon tableau.

J'aimerai crée un Macro qui le trierai lorsque j'appui sur "Trier". J'ai écrit une formule dans Visual Basic, par contre cela ne semble pas fonctionner.

Quelqu'un peu m'aider

Merci d'avance

Hello !

Sub TRI()
    ActiveWorkbook.Worksheets("Données jointage").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Données jointage").Sort.SortFields.Add Key:=Range( _
        "C10:C1500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Données jointage").Sort.SortFields.Add Key:=Range( _
        "B10:B1500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Données jointage").Sort
        .SetRange Range("A9:D1500")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Un gros merci ses nickel