Fichier volumineux après exécution d'une macro

Bonjour,

J’ai créé une macro pour copier, selon un critère, certaines colonnes depuis un fichier de données.
Je précise que la macro est enregistrée et non codée directement et que j'ai ajouté le code de la macro à un bouton.
La taille de mon fichier passe 15mo dès que j’exécute la macro.

Je suppose qu’il y’a un problème, mais je ne sais pas où. Es ce que quelqu’un pourrait me venir en aide S’il vous plait ? J’ai pas mal cherché sur le forum, mais je n’ai pas trouvé.

Voici le code généré automatiquement suite à l’enregistrement de la macro.

Sub Lot_01()

'

' Lot_01 Macro

'

'

Workbooks.Open Filename:= _

"C:\Users\Conception ISO SUD\Desktop\TEST - Copie\Copie de Tarifs entreprises.xlsx"

ActiveSheet.ListObjects("Tableau22").Range.AutoFilter Field:=8, Criteria1:= _

"01 - Implantation - Terrassements"

Range("A:A,B:B,C:C,E:E").Select

Range("Tableau22[[#Headers],[Prix Unitaire]]").Activate

Selection.Copy

Windows("TEST LOT 01.xlsm").Activate

Range("A3").Select

ActiveSheet.Paste

Windows("Copie de Tarifs entreprises.xlsx").Activate

Range("G:G,J:J").Select

Range("Tableau22[[#Headers],[Prestataire]]").Activate

Application.CutCopyMode = False

Selection.Copy

Windows("TEST LOT 01.xlsm").Activate

Range("J3").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWorkbook.Save

End Sub

Merci d'avance, bonne journée.

Bonjour, en masquant les lignes inutiles de mon fichier source, j'ai solutionné mon problème.

Merci