Alléger une macro enregistrée auto

Bonjour

je suis novice en VBA.

J'ai intégré une macro pour récupérer des données dans un onglet avec l’enregistreur auto mais mon fichier est lourd.

Quelqu'un peut-il m'aider pour l'alléger ?

le fichier étant trop gros, voici le code :

Sub NIVEAU5()

Sheets("Feuil3").Select

Range("PLAGE_NIVEAU5").Select

Selection.ClearContents

Sheets("ACOSS_A17").Select

Range("A1:J1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$J$800").AutoFilter Field:=8, Criteria1:=Sheets("Feuil3").Range("niveau5")

Columns("A:A").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Feuil3").Select

Range("ENTETECOL_NIVEAU5").Select

ActiveSheet.Paste

End Sub

D'avance, merci

bonsoir,

à tester sur tes données

Sub NIVEAU5()
    With Sheets("ACOSS_A17")
        Sheets("Feuil3").Range("PLAGE_NIVEAU5").ClearContents
        .Range("A1:J1").AutoFilter
        .Range("$A$1:$J$800").AutoFilter Field:=8, Criteria1:=Sheets("Feuil3").Range("niveau5")
        .Columns("A:A").Copy Sheets("Feuil3").Range("ENTETECOL_NIVEAU5")
    End With
End Sub

Merci pour ta réponse.

j'essair

Bonne soirée