Simplification d'un code VBA

Question

Bonjour ;

Ne connaissant pas le VBA je me suis servi de l’enregistreur de macro pour en créer une. Celle-ci fait le travail demander mais la procédure est longue et toute hachée. Je me demande s’il est possible de rendre ce code plus fluide. Je me permets donc de le publier. Merci pour votre aide

Sub liste_maj()
' liste_maj Macro
Application.ScreenUpdating = False

    Sheets("Basededonnée").Select
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tableau_basededonnée").Range.AutoFilter Field:=5, _
        Criteria1:="Sect.411"
    Range("Tableau_basededonnée[Code]").Select
    Selection.Copy
    Sheets("Listederoulante").Select
    Range("Listes[Code par secteur 411]").Select
    ActiveSheet.Paste
    Sheets("Basededonnée").Select
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tableau_basededonnée").Range.AutoFilter Field:=5, _
        Criteria1:="=sect 412", Operator:=xlOr, Criteria2:="=Sect.412"
    Range("Tableau_basededonnée[Code]").Select
    ActiveWindow.SmallScroll Down:=-12
    Selection.Copy
    Sheets("Listederoulante").Select
    Range("CX2").Select
    ActiveSheet.Paste
    Sheets("Basededonnée").Select
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tableau_basededonnée").Range.AutoFilter Field:=5, _
        Criteria1:="Sect.413"
    Range("Tableau_basededonnée[Code]").Select
    Selection.Copy
    Sheets("Listederoulante").Select
    Range("CY2").Select
    ActiveSheet.Paste
    Sheets("Basededonnée").Select
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tableau_basededonnée").Range.AutoFilter Field:=5, _
        Criteria1:="Sect.421"
    Range("Tableau_basededonnée[Code]").Select
    Selection.Copy
    Sheets("Listederoulante").Select
    Range("CZ2").Select
    ActiveSheet.Paste
    Sheets("Basededonnée").Select
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tableau_basededonnée").Range.AutoFilter Field:=5, _
        Criteria1:="Sect.422"
    Range("Tableau_basededonnée[Code]").Select
    Selection.Copy
    Sheets("Listederoulante").Select
    Range("DA2").Select
    ActiveSheet.Paste
    Range("CW2:DA2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ListObject.Range.FormatConditions.Delete
    Selection.Font.Bold = True
    Selection.Font.Bold = False
    Range("DB1").Select
    Sheets("Basededonnée").Select

Application.ScreenUpdating = True
End Sub

Jean-Eric · Answer

...