tri dans une listbox

[joss56]

Bonjour à tous,

J'essaye de trier un fichier articles d'environ 800 items en fonction de leur catégorie. Je propose la liste des catégories dans un combo et sur la procédure click du combo la listbox doit se mettre à jour...hélas ça plante à chaque fois.
Voici le code:
Private Sub ComboBox1_Change() 'dans ce combo figurent les différentes catégories
ListBox1.Clear
With Sheets("articles") 'Mon fichier articles
j = 6 'La 1ère ligne du fichier
Do While .Cells(j, 1) <> ""
If .Cells(j, 3) = ComboBox1.Text Then
ListBox1.AddItem .Cells(j, 1)
j = j + 1
End If
Loop
End With
End Sub

Merci du coup de main