Comment récuperer la liste de valeurs distinctes sur un range Excel ?

dans un tableau du type 5 colonnes et 3 lignes

1/ /2/1/ 3
/3/5/ /6
2/3/4/5/6

j'aimerais via une fonction ou macro récupérer la liste des valeurs distinctes

le résultat dans notre exemple :
1,2,3,4,5,6 sur le range A1:E3

avez vous une idée de comment faire simplement ?

Merci par avance
braguy13

bonsoir,
Un petit bout de code bien pourri mais qui marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub JAI_HONTE_MAIS_CA_DEPANNE() vTbu = ";" For Each vel In Selection vTbu = Split(vTbu, ";") vFlag = False For Each vel2 In vTbu If CStr(vel2) = CStr(vel) Then vFlag = True Exit For End If Next vTbu = Join(vTbu, ";") If vFlag = False Then vTbu = vTbu & ";" & vel End If   Next vTbu = Right(vTbu, Len(vTbu) - 2) Range("A1").value= vTbu End Sub

---

A ciao