Sub SansDoublonsTrié2()
Application.ScreenUpdating = False ' Fige écran
Set f = Sheets("tableau").[A65000].End(xlUp) ' Définit plage A
DLA = 1 + [A65000].End(xlUp).Row ' Première ligne vide de A
DLB = 1 + [B65000].End(xlUp).Row ' Première ligne vide de B
Range("B" & DLB & ":B" & DLB + DLA - 5).Value = Range("A5:A" & DLA).Value ' Tranfert valeurs
Set f = Sheets("tableau").Range("B5:B" & [B65000].End(xlUp)) ' Définit plage B
f.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp ' Supprime cellules vides
f.RemoveDuplicates Columns:=1, Header:=xlNo ' Supprime doublons
With Range("B5:B1000") ' Mise en forme police, centrage
.HorizontalAlignment = xlCenter
.Font.Name = "Calibri"
.Font.Size = 8
End With
End Sub