à tester
Sub ListeUnique()
Range("A2:A65536").ClearContents
ligne = 2
For i = 2 To 40
For j = 2 To Cells(65536, i).End(xlUp).Row
Cells(ligne, 1) = Cells(j, i)
ligne = ligne + 1
Next j
Next i
End Sub
J'ai considéré qu'il y avait des entêtes sur la première ligne pour chaque colonne et qu'on avait créer une nouvelle colonne A.
La macro fonctionne pour 40 colonnes, pour plus il suffit de modifier For i = 2 To 40 par le nombre de colonne de votre choix.