Bonsoir, je souhaite faire un tri comme suit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
a = Sheets("cartt").Range("j1")
b = Sheets("cartt").Range("h1")
 
    With Sheets("cartt")
    .range(Range("a" & a),range("g" & b)).Sort Key1:=.Range("A" & a), Order1:=xlAscending, Header:=xlGuess,
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With
Mais bien sur sa plante...