tableau et checkbox

Bonjour ! je suis tout nouveau et essaye de coder un petit logiciel de gestion documentaire

J'ai écrit ce code et souhaiterai savoir si je ne peux pas l'améliorer par exemple avec un tableau.

Est ce que quelqu'un peut me donner un conseil....

merci et bonne journée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Select Case m
 
   Case 1
      .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Opt(1)
 
    Case 2
     .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2)), Operator:=xlFilterValues
   Case 3
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3)), Operator:=xlFilterValues
   Case 4
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3), Opt(4)), Operator:=xlFilterValues
   Case 5
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3), Opt(4), opt(5)), Operator:=xlFilterValues
  End Select
End With