Dim Cell As Range, derlg As Long
Application.ScreenUpdating = False
With Sheets("Repertoire")
derlg = .Range("A65536").End(xlUp).Row
.Range("AA3:AI" & derlg).Value = .Range("A3:I" & derlg).Value
.Range("AA3:AI" & derlg).Sort Key1:=Range("AA3"), Order1:=xlAscending, Key2:=Range("AB3" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
For Each Cell In .Range("AA3:AA" & derlg)
Me.ComboBox1.AddItem (Cell)
Next
End With
Application.ScreenUpdating = True