Salut,
un début de soluce:
tes données pour la liste sont en feuil1 colonne 1 et le résultat unique et trié en colonne C.
'début de copie
Option Explicit
Sub TabUniques() 'basé sur un code F.Sigonneau (mvp excel)
Dim Tableau_1, coll As New Collection
Dim i&, j&, k&
Tableau_1 = Sheets('Feuil1').Range('A1').CurrentRegion
For i = LBound(Tableau_1, 1) To UBound(Tableau_1, 1)
For j = LBound(Tableau_1, 2) To UBound(Tableau_1, 2)
On Error Resume Next
coll.Add Tableau_1(i, j), CStr(Tableau_1(i, j))
If Err = 0 Then
k = k + 1
Sheets('Feuil1').Cells(k, 3).Value = coll(coll.Count)
End If
On Error GoTo 0
Next j
Next i
Range('C3').Activate
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range('C1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
' fin de copie VBA
Patrick
