Erreur lors du tri des colonnes

Bonjour,

J'ai utilisé ce code pour trier certaines des colonnes;

Dim Ws As Worksheet
Dim RngPlage As Range
Dim L As Integer

Set Ws = ThisWorkbook.Worksheets("Feuil1")
Set RngPlage = Ws.Range("A1:N" & Ws.Range("A50000").End(xlUp).Row)
L = RngPlage.Rows.Count

With Ws.Sort
        With .SortFields
        .Clear
        .Add Key:=Range("I2:I" & L)
        .Add Key:=Range("D2:D" & L)
        .Add Key:=Range("A2:A" & L)
        End With

        .SetRange RngPlage
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With

Mais parfois cette erreur m'apparaît !!

Merci

Bonjour,

Les fois où le souci survient > est-ce que tu es sur la bonne feuille ?

Sinon > renseigner la feuille aussi ici ...

        .Add Key:=Ws.Range("I2:I" & L)
        .Add Key:=Ws.Range("D2:D" & L)
        .Add Key:=Ws.Range("A2:A" & L)

ric

Bonjour,

ric

Bonsoir,

Merci beaucoup ric,

c'est parfait.