XL 2013 Copier les doublons dans un autre classeur

Sub doublon_feuille()

    'Trouver la colonne correspondant au prénom
    Dim col As Long
    col = Range(RefCell("Nom")).Column
    InitialiseNoms_feuilles 'Initialise un vecteur avec le noms des feuilles dans lesquelles je veux chercher mes doublons
    
    'Création d'un tableau contenant mes lignes
    Dim TabE()
    Dim Plage As Range
    Dim LE As Integer
    Dim TabS()
    Dim LS As Long
    LS = 0
    Dim c As Long
    c = 0
    Dim i As Long
    i = 0
    
    ReDim TabS(1 To 5000, 1 To 10)
    For i = LBound(Noms_feuilles) To UBound(Noms_feuilles)
    
        With Sheets(Noms_feuilles(i))
        TabE = .UsedRange.Value
        Set Plage = .Range(.Cells(2, col), .Cells(.Rows.Count, col).End(xlUp))
        End With
    
        If UBound(TabS, 2) < UBound(TabE, 2) Then ReDim Preserve TabS(1 To UBound(TabS, 1), 1 To UBound(TabE, 2))
            For LE = 1 To UBound(TabE, 1)
                If Application.CountIf(Plage, TabE(LE, col).Value) > 1 Then  '---> erreur ICI
                    LS = LS + 1
                        For c = 1 To UBound(TabE, 2)
                        TabS(LS, c) = TabE(LE, c)
                        Next c
                End If
            Next LE
    Next i
  
   'Création d'un nouveau classeur et "collage" du tableau contenat les lignes dans ce classeur
   Workbooks.Add
   ActiveSheet.[A2].Resize(LS, UBound(TabS, 2)).Value = TabS
  

End Sub