Traduction de macro ?

Bonsoir !

Pouvez-vous m'aider à traduire cette macro s'il vous plaît ?

     
   ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("A2:A805") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil3").Sort
        .SetRange Range("A1:G805")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Merci beaucoup

Bonsoir

Programme de tri (versions 2007 et +) de la plage A1:G805

Clé du tri : la colonne A (A2:A805), tri ascendant

Tous ces renseignements tu peux les avoir dans l'aide

Merci !