Private Sub UserForm_Initialize()
Dim DerL As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
'tri ascendant
DerL = .Range("A65536").End(xlUp).Row
.Range("A3:A" & DerL).Sort Key1:=.Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ComboBox1.List = .Range("A3:A" & DerL).Value
'tri ascendant
DerL = .Range("E65536").End(xlUp).Row
.Range("E3:E" & DerL).Sort Key1:=.Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ComboBox2.List = .Range("E3:E" & Range("E65536").End(xlUp).Row).Value
ComboBox6.List = .Range(.Cells(3, 16), .Cells(.Cells(Rows.Count, 16).End(xlUp).Row, 16)).Value
ComboBox7.List = .Range(.Cells(3, 20), .Cells(.Cells(Rows.Count, 20).End(xlUp).Row, 20)).Value
End With
'Dim VV As Integer
'With Worksheets("CHARGEMENT DE LA BOITE")
'For VV = 3 To Cells(Rows.Count, 20).End(xlUp).Row
' ComboBox7.AddItem .Cells(VV, 20)
'Next VV
'
'End With
Dim aa As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For aa = 3 To Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(aa, 1)
Next aa
End With
Dim b As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For b = 3 To Cells(Rows.Count, 5).End(xlUp).Row
ComboBox2.AddItem .Cells(b, 5)
Next b
End With
Dim C As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For C = 3 To Cells(Rows.Count, 9).End(xlUp).Row
ComboBox3.AddItem .Cells(C, 9)
Next C
End With
Dim D As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For D = 3 To Cells(Rows.Count, 12).End(xlUp).Row
ComboBox4.AddItem .Cells(D, 12)
Next D
End With
Dim E As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For E = 3 To Cells(Rows.Count, 15).End(xlUp).Row
ComboBox5.AddItem .Cells(E, 15)
Next E
End With
Dim F As Integer
With Worksheets("CHARGEMENT DE LA BOITE")
For F = 3 To Cells(Rows.Count, 18).End(xlUp).Row
ComboBox6.AddItem .Cells(E, 17)
Next F
End With
End Sub