Option Explicit
Sub Zéro_doublon()
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Sheets("listesansdoublons").Columns(1).Clear
Sheets("Extraction expédition").Columns(3).SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Sheets("listesansdoublons").[a2]
Sheets("Extraction production").Columns(4).SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Sheets("listesansdoublons").Range("a" & Rows.Count).End(xlUp)(2)
With Sheets("listesansdoublons").Range("a:a")
.RemoveDuplicates Columns:=1, Header:=xlNo
.Sort .Range("a2"), xlAscending, Header:=xlNo
End With
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub