Copier coller une liste sans doublon sur la 3ème colonne

[mouftie]

Bonjour,
Je cherche à récupérer une liste (feuille BdD) extraite d'une autre liste (feuille Infos).
J'ai trouvé sur le site, un code que j'ai voulu adapter, mais je n'y arrive pas.

 Dim DeBlg As Long, DerLg As Long
DeBlg = Sheets("BdD").Range("D65000").End(xlUp).Row + 1
DerLg = Sheets("infos").Range("D65000").End(xlUp).Row + DeBlg - 1
    Sheets("BdD").Activate
    Sheets("Infos").Range("TabAg[[Expérim]:[Sct]]").AdvancedFilter Action:=xlFilterCopy _
        , CopyToRange:=Range("B" & DeBlg), Unique:=True

le pb, c'est que je voudrai c'est désigner la colonne qui contient les doublons et en plus, j'ai des exigences :

1. que le filtre se fasse sur la 4ème colonne (Nom) et non sur la 1ère

• que la liste vienne s'intégrer au tableau7 en gardant si possible la mise en forme (mais ça je pourrai le reprendre avec une mise en forme conditionnelle).

• Enfin que la colonne Sct soit déplacer en colonne O du tableau7 de destination

Ce lien n'existe plus
Merci pour votre aide