pb résultat filtrage par macro

Bonjour,

J'ai un pb concernant la récupération du résultat d'un filtre. Voilà, j'ai une table où je stocke des données en ligne (je m'étend de la colonne A à la colonne AT). Lorsque j'effectue un filtrage de cette table sur les données situées dans la colonne D (toujours), je veux que le résultat de ce filtre (les lignes trouvées) soient copiées dans une autre feuille. Pour cela, j'utilise un code mais mon pb est que ce code ne me renvoie que les données des colonnes A,B, C et D. Je ne comprends pas pourquoi les données des autres colonnes ne suivent pas. Pourriez-vous m'expliquer pourquoi ça ne marche pas complètement et me proposer une solution pour renvoyer toute les données.

Voici le code :

Sub Resultatfiltre()

Dim Destination As Range

'Je défini la plage où seront copiées les données.

Set Destination = Sheets("Feuille recuperation").Range("A2")

Dim MaPlage As Range

Set MaPlage = Sheets("Table").AutoFilter.Range


Set MaPlage = MaPlage.Offset(1, 0).Resize(MaPlage.Rows.Count - 1, MaPlage.Rows.Count)

MaPlage.Copy Destination

End Sub

Voilà, merci bien et bonne soirée à tous.

JB.