Sub Liste()
Dim i As Long, X As Long, Tableau() As String, Doublon As Boolean, t
ReDim Tableau(1)
'Effacements des résultats précédents
If Range('C1') <> '' Then Range('C1:' & Range('C1').End(xlDown).Row).ClearContents
For i = 1 To Range('A1').End(xlDown).Row
Doublon = False
For Each t In Tableau
If t = Range('A' & i) Then Doublon = True
Next t
If Not Doublon Then
X = X + 1
ReDim Preserve Tableau(X + 1)
Tableau(X) = Range('A' & i)
End If
Next i
X = 1
For Each t In Tableau
If t <> '' Then
Range('C' & X) = t
X = X + 1
End If
Next t
End Sub