Public Sub LieuSansDoublon()
Dim L As Long, rng As Range, a()
With Worksheets("Tableau de saisie")
L = .Range("B10000").End(xlUp).Row
Set rng = .Range("B2:B" & L)
rng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End With
a = rng.SpecialCells(xlCellTypeVisible).Value
L = Worksheets("Tableau de données").Range("O10000").End(xlUp).Row + 1
Sheets("Tableau de données").Range("O" & L).Resize(UBound(a, 1), LBound(a, 2)) = a
End Sub