Problème filtre VBA

Bonjour à tous,

J'ai actuellement un problème avec un code qui filtre des données en vba... Un problème non pas sur le fond mais sur la forme vous allez comprendre

Lorsque sur ma feuille "Filtre" j'effectue une recherche, les formes à droites sur ma feuille "Base" se déforment totalement !

Exemple : Je cherche dans trajet "Londres" et bien une fois cliquer sur Manuel (pour valider) les formes oranges de ma feuille base se déforment...

Ceci est très embêtant car ces formes sont affectées (dans d'autres classeurs) à des macros.

Quelqu'un aurait-il une solution ?

Je vous en remercie d'avance

Bonsoir,

Suggestion :

Sub FiltreElaborer()
    Dim Bse As Range, crt As Range, n%
    Set Bse = Worksheets("Base").ListObjects(1).Range
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("A7:K" & .UsedRange.Rows.Count).Clear
        Set crt = .Range("A1").CurrentRegion
        Bse.AdvancedFilter xlFilterCopy, crt, .Range("A6:K6")
        n = .Range("B5") + 6
        .Range("A7:K" & n).Font.Size = 11
        .PageSetup.PrintArea = "$A$6:$K$" & n
        .PageSetup.PrintTitleRows = "$6:$6"
    End With
End Sub

Bonjour,

Excellente suggestion, ça marche parfaitement.

Merci beaucoup