quand tu insères une procédure, ça sera plus lisible :).
Une solution possible :
[code]
Sub Transposition_Nom()
Dim i As Long, d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("Feuille1")
For i = 1 To .[a65000].End(xlUp).Row
If .Cells(i, 1).Value <> "" Then d(.Cells(i, 1).Value) = ""
Next i
End With
Sheets("Feuille2").[a1].Resize(1, d.Count).Value = d.keys
End Sub