Sub Extractiondoublon()
Feuil1.select
'filtre automatique, extraction des doublons, copie en cellule C1
range("A1").select: selection.autofilter
range("A:A").AdvancedFilter Action:=xlFilterCopy, Copytorange:=range("C1"), Unique:=true
end Sub
Option Explicit
FILTRAGE DE DOUBLONS / UNE COLONNE
Public Sub filtrage()
Dim Vplage As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Feuil1.Activate 'ACTIVATION DE LA FEUILLE PAR SON NOM DE CODE
Range("A6").Select 'DEPART EN A6
Set Vplage = Range(ActiveCell, Range(ActiveCell, ActiveCell.End(xlDown)))
'COPIE EN COLONNE B DE LA LISTE DES DONNÉES SANS DOUBLON
Vplage.AdvancedFilter xlFilterCopy, , Vplage.Offset(, 1).Resize(1, 1), True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub