Sub DEPLACERfichiers()
Dim myFso As Object, fichierSource As String, fichierDestination As String
Set myFso = CreateObject("Scripting.FileSystemObject")
fichierSource = "H:\Mes Documents 3\doc1\*.*"
fichierDestination = "H:\Mes Documents 3\doc2\*.*"
myFso.MoveFile fichierSource, fichierDestination
End Sub