Boites de dialogue pour un filtre

Bonjour,
Je suis débutant, et j'ai un tableau avec 13 colonnes dont 4 alimentées à partir d'un choix dans une liste déroulante.
Je souhaite afficher avec un filtre, certains éléments de mon tableau en incorporant dans la macro le choix des ces listes déroulantes (date du ... au ...- catégories - sous catégories) , donc je suppose avec des boîtes dialogue.
Pouvez vous m'indiquer la solution la plus simple à partir de ma macro ci-dessous.
J'ai aussi remarquer que le filtre sur les dates ne ramène pas toujours les bons éléments !
Merci pour votre indulgence

Sub Tri_date_categ_souscateg()
'
' Tri_date_categ_souscateg Macro
    
    Sheets("Compta").Select
    ActiveSheet.Unprotect
    Columns("H:L").Select
    Selection.EntireColumn.Hidden = False
    Range("A3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$M$7000").AutoFilter Field:=1, _
         Criteria1:=">=01/01/2021", Operator:=xlAnd, _
         Criteria2:="<=08/01/2021"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=5, _
        Criteria1:="Charge"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=6, _
        Criteria1:="Electricité"
    Range("I7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("K7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("A7003").Select
    choix = MsgBox("Confirmer la suppression ?", 36, "Confirmation")
        'Si l'utilisateur a cliqué sur le bouton Oui
    If choix = vbYes Then
        'MsgBox "Vous avez cliqué sur Oui !", 64
    End If
    Selection.AutoFilter
    Range("I:I,K:K").Select
    Range("K1").Activate
    Selection.EntireColumn.Hidden = True
    Sheets("Compta").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A3").Select
End Sub

Message modifié par la modération Pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE