Problème tri Combobox...

[Jeremy011991]

Bonjour à tous, voici le code qui me pose problème. Je vous explique tout en dessous :

Sub oda()
'
' oda Macro Ouvrir Devis Association à modifier

ouvrirdevisass.Show
End Sub

Cette macro lance donc mon Usf...

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

Ceci est un tri qui s'effectue sur mon combobox via une autre macro. (Là n'est pas le problème)

Cependant sur cette ligne :

     tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)

J'ai un magnifique message d'erreur d'execution 13, incompatibilité de type.

Et ce qui me fascine là dedans, c'est que j'ai exactement le même principe de code, sur deux autres USf, et il n'y a aucun problème...

Si quelqu'un voit une erreur de synthaxe ou autre...merci beaucoup..