test avec selection multiple pour une listbox

Merci je crois j'ai trouve quelque Chose
Premierement je cree 16 listes deroulante Avec listbox ensuite je declare 16 tableaux correspondant aux 16 listes
lorsqu'on selectionne une valeur dans la liste cette valeur est stocker dans le Tableau correspondant puis vient le test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
compt1=0
compt2= 0
.
.
.
compt16=0
x=2
 for i= 1 to range("A" & Rows.Count).End(xlup).Row
     for j= 1 to Ubound(T1) ''boucle sur le Tableau 1
          if Range("A"& i) = T1(j) then
              compt1 = compt1+1 ''incremente le nombre de fois trouve
        end if
   next j
   for j= 1 to Ubound(T2)''boucle sur le Tableau 1
          if Range("B"& i) = T2j) then
              compt2= compt21 ''incremente le nombre de fois trouve
        end if
   next j
   ainsi de Suite jusqu'aux 16 colonnes
puis je test si les compt sont differents de Zero ou pas
 if compt1<> 0 And compt2<>0 And ......And compt16<>0 then
    inter = i & ":" & i
          Rows(inter).Select
          Selection.Copy
          Sheets("ETW_B_NG").Select
          Sht2.Range("A" & x).Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        x = x + 1
end if
compt1=0
compt2=0
.
.
compt16=0
next i