Erreur sur .Apply

Bonjour à tous,

j'ai une erreur sur .Apply sur ce code :

Sheets("Août").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "$B$7:$BL$33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

mon fichier est de 3,9 Mo donc je ne sais pas le joindre.

avant ça fonctionnait très bien et depuis que j'ai rajouté "Août" j'ai cette erreur qui ce produit sur .Apply

quelqu'un sait m'aider s'il vous plait?

Merci beaucoup à tous.

bonjour,

je suppose que tu souhaites un tri sur la colonne B

donc

 ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "$B$7:$B$33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

au lieu de

 ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "$B$7:$BL$33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

Bonjour h2so4,

je ne vois pas la différence entre les deux....

je ne vois pas la différence entre les deux....

regarde mieux ... un L en trop dans $B$7:$BL$33

Merci h2so4 ça fonctionne.

c'est super.

c'est juste, ma colonne de tri est en B.

Merci beaucoup à toi