Salut,
Déjà, pour déterminer la dernière ligne, il vaut mieux partir du bas et remonter, cela évite de tomber sur un 'trou' situé avant la fin.
'pour déterminer la dernière cellule de ma colonne
y = Sheets("Liste combobox").Range("A65536").End(xlUp).Row
Ensuite, il faut utiliser SET pour créer un objet Range
et en dernier, la méthode Sort nécessite Key1 pour savoir sur quel critère trier.
Pour simplifier le code, tu peux aussi utiliser With ...
Dim ListeE As Range
Dim y As Integer
Dim ListeT As Range
Dim z As Integer
With Sheets("Liste combobox")
'pour déterminer la dernière cellule de ma colonne
y = .Range("A65536").End(xlUp).Row
'Tri de la colonne
Set ListeE = .Range("A2:A" & y)
ListeE.Sort key1:=.Range("A2")
z = .Range("B65536").End(xlUp).Row
Set ListeT = .Range("B2:B" & z)
ListeT.Sort key1:=.Range("B1")
End With
Bonne continuation
Rai