Message error VBA

Bonjour,

Moi je n'ai pas de problème quand je l'ouvre mais d'autres ont un problème.

le message error: Run time error '13':

type dismatch

et la ligne de ma macro surligné en jaune et la suivante

    If numListe <= UBound(plage) Then    ' si plage de liste existant
        ' initialiser listbox
        LbxListe.ListFillRange = "Listes!" & Worksheets("Listes").Range(nomListe(numListe)).Address          ' A2:A17" ' [Listes!Ville].Address
        LbxListe.Top = Target.Offset(1, 0).Top
        LbxListe.Left = Target.Offset(0, 1).Left
        LbxListe.MultiSelect = fmMultiSelectMulti
        LbxListe.Height = 68
        LbxListe.Width = 95
        interne = True    ' palliatif, EnableEvents ne marche pas
        ch = ActiveCell
        [color=#FFFF00]ch2 = [Séparateur] & ch & [Séparateur][/color]
        topIndex = False
        ' sélectionner selon contenu cellule
        For i = 0 To LbxListe.ListCount - 1
            If InStr(ch2, [Séparateur] & LbxListe.List(i) & [Séparateur]) > 0 Then
                ' l'item a été trouvé dans la cellule
                LbxListe.Selected(i) = True
                If Not topIndex Then
                    LbxListe.topIndex = i    ' le 1er sélectionné doit être visible dans la textbox
                    topIndex = True
                End If

Savez vous quel est le problème?

Merci beaucoup

Pourrais-tu ajouter ton fichier pour mieux comprendre.