VBA pour copier dossier qui ne copie pas tout

BOnjour !

Après de longues pérégrinations, j'arrive enfin à un code qui me permet de copier un répertoire dans un autre (en piochant des morceaux un peu partout sur le net, merci à eux !!), selon une liste source "DossierOriginal" en colonne 7 et une liste destination "DossierCOpie" en colonne 8.

Il prend en colonne 7 le chemin d'origine, il prend en colonne 8 celui de destination auquel il manque le répertoire à copier, et il compile tout ça grâce au StrReverse. Et ça, ça fonctionne : il copie les dossiers.
En cas d'erreur, il va sur la feuille "Travail" me recopier la source.

ça 'fonctionne" mais pas tout à fait : le dossier copié n'est pas intégral ! il comprend quelques photos, des messages mail, du pdf, d'autres dossiers (au même nom d'ailleurs, ça peut poser problème ?).
Là, il ne copie que le début soit 4 photos, un docx, 2 pdf et 3 mails soit 26 mo sur 81 mo... et le reste, il ne copie pas. Il va sur la ligne prévue en cas d'erreur.

Je m'interroge aussi sur ceux qu'il a copié sans me remonter d'erreur...
Y a-t-il une limite de poids au déplacement de dossier par VBA ?

Merci pour l'aide !!

Sub macro7()

On Error GoTo gestionErreurs

Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim DossierOriginal As String
Dim DossierCOpie As String
Dim dos As String
n = 2

While Cells(n, 7) <> ""
DossierOriginal = Cells(n, 7)
dos = StrReverse(Split(StrReverse(DossierOriginal), "\")(0))
DossierCOpie = Cells(n, 8) & "\" & dos

objFSO.CopyFolder DossierOriginal, DossierCOpie, True

n = n + 1

Wend

gestionErreurs:
Sheets("Travail").Cells(n, 13).Value = Cells(n, 7).Value
Resume Next

End Sub