A voir comment ta combo est alimentée.... utilise la méthode "AddItem" en effectuant un test à l'aide de l'opérateur "like", exemple ci-dessous à adapter à ton projet :
Code:
If Not Cells(1, 1) Like "*ANNL*" Then ListBox1.AddItem
For i = 2 To .Range("a65536").End(xlUp).Row
ComboBox1.AddItem
ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 4)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
Next i
For i = 2 To .Range("a65536").End(xlUp).Row
If .Cells(i, 4) Like "*ANNL*" Then
ComboBox1.AddItem
ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 4)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
End If
Next i