XL 2013 probleme pour accelerer une macro qui garde les doublons sujet

Bonjour,

on m'a aide il y a quelques temps; on m'a donne un code qui marche bien:

Sub eliminer_non_erreur()

Dim plage As Range
Dim Ligne As Long, cpt As Long
'On Error GoTo FinSuppr

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual



LigSource = Sheets(2).Range("B" & Rows.Count).End(xlUp).Row
LigCible = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 5 ' + 5


Sheets(2).Range("B6:B" & LigSource).Copy Sheets(1).Range("A" & LigCible)
With ActiveSheet
Set plage = .Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row)
cpt = plage.Rows.Count
For Ligne = cpt To 1 Step -1
If Application.CountIf(plage, plage.Cells(Ligne, 1)) = 1 Then
plage.Cells(Ligne, 1).EntireRow.Delete
End If
Next Ligne
End With

Application.ScreenUpdating = True

End Sub


-----------------------

Toutefois, j'ai un long fichier et la macro a pris un temps bien trop long

Je vous met le fichier ci joint si vous voulez faire une simulation

Auriez vous des idees pour que la macro puisse etre bien plus rapide?

peut etre faut il changer le code ?

Merci de votre aide

Fichiers attachés

• 
  
  probleme.zip‎
  (400,4 Ko)
  

Comment accélerer le déplacement de Dossiers et fichiers ? sujet

Bonjour,
Je dois déplacer plusieurs centaines de dossiers contenant plusieurs dizaines de fichiers chacun vers un subsite, soit + de 5000 fichiers.
je ne suis pas admin , juste utilisateur.
Je fais la manip à partir de l'explorateur. en couper/coller

de https://...265697/W_DocumentLibrary/DOSSIERS
vers
https://...265697/01/TOTO/DOSSIERS

Le déplacement est très long (plusieurs heures déjà)

Comment cela se passe t'il techniquement ? les fichiers transitent'ils par mon PC ?

Y a t'il une solution plus rapide ?