Sub deb()
Dim Fso As New Scripting.FileSystemObject
Chemin = Workbooks(ActiveWorkbook.Name).Path & "\"
drlg = dernièrelg(Sheets("Transfert"), 2)
With Sheets("Transfert")
For n = 2 To drlg
' Quand le dossier n'existe pas dans le répertoire cible... soit False aucune Procédure !
if GestionFichier.FolderExists(Chemin & .Cells(n, 1) & "\") <> false then
Fso.MoveFile Chemin & "total\" & .Cells(n, 2), Chemin & .Cells(n, 1) & "\"
end if
Next
End With
Set Fso = Nothing
End Sub