Filtre VBA / ajustement des autres colonnes

Bonjour à tous,

Je souhaite appliquer des filtres automatiques en VBA.

Voici mon bout de code :

' Filtrer les AT de + de 45 jours
    Sheets("Analyse").Select
    Range("A1:AC1").Select
    Selection.AutoFilter
    Selection.EntireColumn.AutoFit
    Sheets("Analyse").Range("$A$1:$AC$100000").AutoFilter Field:=15, Criteria1:="AT"
    Sheets("Analyse").Range("$A$1:$AC$100000").AutoFilter Field:=18, Criteria1:=">45" _
        , Operator:=xlAnd
    Range("$R$1:$R$100000").Sort Key1:=Range("R1"), order1:=xlDescending

Problème, le filtre ne s'applique qu'à la colonne concernée et les autres ne suivent pas... Du coup, tout est faux :D

Une idée pour m'aider?

Merci à vous!

fifou