Trier des données sur des lignes

[rch05]

Bonjour,

J'aimerai pouvoir améliorer le code suivant qui effectue un tri sur des lignes

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A4:F4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A4:F13")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A5:F5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A4:F13")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With

J'ai plusieurs lignes à trier après une mise à jour
Merci d'avance de votre aide

 

[rch05]

Re : Trier des données sur des lignes

Bonjour,

je suis bête..............
je viens de trouver la solution:

Range("A4:F4").Sort Key1:=Range("A4"), Orientation:=xlLeftToRight
Range("A5:F5").Sort Key1:=Range("A5"), Orientation:=xlLeftToRight

Bête comme choux

Merci