Bonjour les maîtres du vba

Ci dessous le code que j'ai élaboré grâce aux tutoriels pour creer une liste de nom;
Mon probleme, cela donne une liste de nom en colonne à partir de C4 et je voudrais une liste en ligne à partir de C4

Votre aide serait la bienvenue

Cordialement
Lps02


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Propriétaire()
Dim Dico As Object
Dim j As Range
Dim d
Dim b As Long
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("lotissement")
    For Each j In .Range("N12:N" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        If Not Dico.exists(Trim(j.Value)) Then Dico.Add Trim(j.Value), Trim(j.Value)
    Next j
        b = 4
        For Each d In Dico.items
        .Range("C" & b) = d   'pour recopier la liste des éléments uniques à partir de la cellule B2
        b = b + 1
        Next d
 
 
End With
 
 
End Sub