Private Sub UserForm_Initialize()
'Appel le tableau des devis
Dim tblo()
tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)
ComboBox1.List = tblo
'Execute la fonction tri alpha sur le tableau, jusqu'au dernier devis
tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)
Call trier_tableau(tblo, 1, True)
ComboBox1.List() = tblo
End Sub