XfilterCopy importer des données sans mise en forme

Bonjour à tous,

J'ai crée ce petit code VBA pour importer des données issue d'une autre feuille de mon classeur.

Sub FiltrerClientsAAA()

'On sélectionne la plage de donnée à copier pour l'importer. O2 c'est l'entête de colonne
Sheets("ExportPeséeWork").Range("O4:O5000") _
.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("DétailC.AAAA") _
.Range("F1:F3"), _
CopyToRange:=Sheets("DétailC.AAAA") _
.Range("B8:B30"), _
Unique:=True
End Sub

Problème, je souhaiterais n'importer que les données et non la mise en forme. Pour le moment mon code rend mon tableau receveur des information moche car la forme des cellules change.

Quelqu'un peut m'aider s'il vous plaît?

Bien cordialement,

Bonjour

Par construction le filtre avancé prend la mise en forme dans de l'export donc

• soit exporter dans une plage temporaire puis la copier en valeur dans la zone cible, puis l'effacer
• soit mettre en forme après
• soit
  
  • filtrer sur place
  • copier en valeur vers la cible
  • défiltrer la source