Suppressions doublons sur plusiers colonnes

Public Sub ok()
Dim dico As Object, cle, n As Long, lifin As Long
Dim t(), li As Long, co As Long, i As Long
' dictionnaire de toutes les valeurs "uniques"
Set dico = CreateObject("scripting.dictionary")
' dernière ligne de la feuille
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
' nombre de lignes du tableau t (qui aura 12 colonnes)
n = lifin - 1
ReDim t(1 To n, 1 To 12)
' boucle sur les colonnes
For co = 1 To 12
  'initialisation de l'indice de la colonne co du tableau t
  i = 0
  ' boucle sur les lignes de la colonne co
  For li = 2 To lifin
    ' valeur lue
    cle = Cells(li, co)
    ' si cle n'est pas dans dico
    ' on l'ajoute
    ' on incremente i
    ' on place cle en ligne i colonne co du tableau t
    If Not dico.exists(cle) Then
      dico.Add cle, 1
      i = i + 1
      t(i, co) = cle
    End If
  Next li
Next co
' affichage de t à partir de A20 (ligne 20, colonne 1)
Cells(20, 1).Resize(n, 12) = t
End Sub

Cells(20, 1).Resize(n, 12) = t

Option Explicit

Public Sub ok()
Dim dico As Object, cle, n As Long, lifin As Long, derlig As Long, ws As Worksheet
Dim t(), li As Long, co As Long, i As Long
Set ws = ThisWorkbook.Worksheets("feuil1")
Set dico = CreateObject("scripting.dictionary")
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
derlig = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
n = lifin - 1
ReDim t(1 To n, 1 To 12)
For co = 1 To 12
  i = 0
  For li = 2 To lifin
    cle = Cells(li, co)
    If Not dico.exists(cle) Then
      dico.Add cle, 1
      i = i + 1
      t(i, co) = cle
    End If
  Next li
Next co
Cells(derlig, 1).Resize(n, 12) = t
End Sub