Sub bouton2()
Dim i%, DL%, tablo
Application.ScreenUpdating = False
Application.EnableEvents = False
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("A:A").Select
DL = Sheets("BDD").Range("A65500").End(xlUp).Row
Range("A1:A" & DL - 3) = Sheets("BDD").Range("A3:A" & DL).Value
DL = Range("A65500").End(xlUp).Row
ActiveSheet.Range("$A$1:$A$" & DL).RemoveDuplicates Columns:=1, Header:=xlNo
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:A" & DL)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
DL = Range("A65500").End(xlUp).Row
tablo = Range("$A$1:$A$" & DL)
Selection.Copy
Columns("A:A").Delete Shift:=xlToLeft
With UserForm2
.ComboBoxNoms.List = tablo
.Astreintes = ""
.Show
End With
[A1].Select
Application.EnableEvents = True
End Sub