Transfert d'une feuille vers une autre sans doublons

Bonjour,

J'ai un petit problème avec un script qui me permet de transferer les noms d'une feuille vers une autre feuille mais sans doublons.

Le problème est qu'il me donne des doublons.

Voici le script:

With Sheets("Tableau Général")
    Sheets("Tableau Général").Range("B4:B" & .[A65000].End(xlUp).Row).Name = "drivers1"
    Sheets("Tableau Général").Range("B4:B" & .[A65000].End(xlUp).Row).Name = "drivers"

End With
With Sheets("Compilation chauffeurs ")
    Range("drivers1").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Compilation chauffeurs ").Range( _
        "A4"), Unique:=True
    Sheets("Compilation chauffeurs ").Range("A4:A" & .[A65000].End(xlUp).Row).Sort Key1:=Sheets("Compilation chauffeurs ").Range("A4"), Header:=xlYes

End With

Comment corriger se problème svp?

Merci de votre aide! 

Bonjour,

En réalité, je veux que chaque noms qui se trouvent dans la colonne A, à partir de la ligne 4 en descendant de la feuille "Tableau Général" se copie un en dessous de l'autre et sans doublons dans la colonne A à partir de la ligne 4 en descendant de la feuille "Compilation chauffeurs ".

Je pense que tu devrais faire ton filtre élaboré "sans doublon" sur la feuille de Tableau Général, dans une colonne qui ne sert pas.

Ensuite, tu copies cette liste sur l'autre feuille. Et tu effaces la liste originale par après si nécessaire.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI