Comparer deux listes

Private Sub CommandButton__traiter_fichiers_Click()
' ================================================================================================ '
' TRAITE LES FICHIERS DE LA LISTBOX                                                                '
' ================================================================================================ '

mon_Fichier = ActiveWorkbook.Name

For i = 1 To ListBox__nom_fichiers.ListCount
With ThisWorkbook

    Set Destination = .Sheets("doublons").Range("a65536").End(xlUp).Offset(1, 0)
End With
 Workbooks.Open Filename:=mon_Path + mon_Tableau(i)
 With Sheets(Mid(mon_Tableau(i), 1, Len(mon_Tableau(i)) - 4))
  .Range(.Range("A2"), .Range("A2").End(xlDown).Offset(0, 9)).Copy Destination
 End With
 
Next
With ThisWorkbook.Sheets("doublons")
    nbre = .Range(.Range("b2"), .Range("b2").End(xlDown)).Count
    n = 1
     For i = nbre + 1 To 2 Step -1
        On Error Resume Next
        liste.Add .Cells(i, 2).Value, CStr(.Cells(i, 2).Value)
         Debug.Print Err.Number
        If Err.Number <> 0 Then
            .Cells(i, 2).EntireRow.Delete
        End If
        n = n + 1
     Next
On Error GoTo 0
For n = 1 To liste.Count
    liste.Remove 1
Next
.Range("A2").Name = "clé"
[B].Range(.Range("A2"), .Range("A2").End(xlDown).Offset(0, 9))[/B].Sort Key1:="clé", Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

End With

End Sub

For n = 1 To liste.Count

Erreur d'exécution '424'

Objet requis