[VBA] Filtre tableau

Bonjour,

A l'aide de la macro ci-dessous j'ai appliqué un filtre selon un critère voulu :

With ActiveSheet

If .AutoFilterMode = True Then .AutoFilterMode = False

.Range("$A$8:$DI$234").AutoFilter Field:=18, Criteria1:="LLS"

End With

Ce filtre fonctionne, mais mon tableau s'étant agrandi à 253 lignes et non plus 234, j'ai modifié dans la macro la valeur 234 par 253 ce qui devrais logiquement filtré jusqu’à la case 253 mais la case 254 est aussi comprise dedans. D'ailleurs si on va dans "Données > Filtré > Avancé" j'ai bien la valeur suivante $A$1:$DH$253 et pourtant la ligne 254 disparaît aussi.

Merci d'avances pour vos réponses.

Cordialement,

Ci-joint un exemple cela sera plus parlant.

Dans la macro je définis bien un tableau de A8 à DI253 sur lequel effectuer le filtre, mais lorsque l'on clique sur le bouton Tri auquel est affecté la macro le filtre s'effectue au delà de la ligne 253.