Bonjour,

J'ai effectué un enregistrement de macro (voir ci-dessous) pour me permettre après avoir sélectionné le filtre OK de ma colonne C de copier les colonnes B-I-J et Z et les coller sur une autre feuille via un Bouton de commande


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Macro1()
 
' Macro1 Macro
 
 
    ActiveSheet.Range("$C$1:$C$2000").AutoFilter Field:=1, Criteria1:="OK"
    Range("B:B,I:I,J:J").Select
    Range("J1").Activate
    Range("B:B,I:I,J:J,Z:Z").Select
    Range("Z1").Activate
    Selection.Copy
    Sheets("Feuille2").Select
    ActiveSheet.Paste
End Sub
Pas de soucis, c'est fonctionnel.
Sauf que, je passe d'un fichier de 270 Ko à un bon gros 16 Mo.
Ma question étant donc, comment avoir le même résultat sans quadrupler la taille de mon tableau?

Merci ++