Bonjour,
J'ai fait un test via l'enregistreur de macro pour voir le code qu'il me donne si je copie une zone filtrée, j'obtiens ceci :
Range("A2:A16").Select
Selection.Copy
En enlevant les select ça donne :
Range("A2:A16").Copy
et ça copie bien seulement les cellules qui sont visibles
Donc premier soucis dans ton code :
Sheets("Nom_Feuille1").Range("Nom_Tableau[Nom_Colonne]").Column.SpecialCells(xlCellTypeVisible).Copy
ça ce n'est pas nécessaire, je ne sais même pas à quoi ça sert...
Ensuite tu utilises déjà "Nom_Tableau[Nom_Colonne]", pourquoi repréciser derrière que tu veux toute la colonne alors que tu as plus précis?
Fais juste ceci :
Sheets("Nom_Feuille1").Range("Nom_Tableau[Nom_Colonne]").Copy
Et ça devrait marcher comme sur des roulettes je pense.
Si ce n'est pas le cas merci de me le dire voir de joindre un fichier