Bonjour à toutes et à tous,

Je me permets de poster cette demande afin de trouver une aide à mon ignorance sur le sujet :-)
J'ai un bout de code VBA que je souhaiterai améliorer en insérant une listbox qui proposerait de sélectionner les critères au lieu de les indiquer bêtement dans le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ActiveSheet.Range("$B$2:$Q$5000").AutoFilter Field:=6, Criteria1:=Array( _
        "1", "2", "3"), Operator:=xlFilterValues
        ActiveSheet.Rows("3:5000").SpecialCells(xlCellTypeVisible).Delete
        ActiveSheet.ShowAllData
Ce code est aujourd'hui inséré au centre d'une macro beaucoup plus longue.

Espérant trouver ici votre aide précieuse.
Bien cordialement,