Macro à optimiser

Bonjour,
J'ai créé une macro qui, à partir d'un fichier excel (qui pèse 2,3Mo), me créé deux nouveaux fichier avec un certain nombre de manips effectuées (filtres, tris, comparaisons, etc)

Mes deux fichiers finaux font 3,8Mo et 270 Mo
Or ils ont autant d'informations, donc il y a clairement une erreur sur le deuxième. Il est anormalement volumineux.
Savez-vous d'où ça peut venir?

J'ai mis des tests à l'intérieur de mon code, afin de voir à quel endroit le fichier augmente bizarrement de taille, et ça se passe dans ce code :

Sheets("GENERAL").Select
    Selection.AutoFilter
    Columns("D:D").Select
    Selection.AutoFilter
    ActiveSheet.Range("$D:$D").AutoFilter Field:=1, Criteria1:="Bordeaux"
    Cells.Select
    Selection.Copy
    Sheets("BORDEAUX").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("BORDEAUX").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BORDEAUX").Sort.SortFields.Add Key:=Range( _
        "A2:A2160"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("BORDEAUX").Sort
        .SetRange Range("A1:R2160")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Merci beaucoup si quelqu'un peut jeter un coup d'oeil...