Option Explicit
 
Sub Tst()
Dim PATH As String, NPATH As String
Dim oFSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim DossierDestination As Scripting.Folder
Dim File As Scripting.File
 
    Set oFSO = New Scripting.FileSystemObject
 
    PATH = "C:\TEST\"
    NPATH = "C:\TEST2\"
 
    Set DossierSource = oFSO.GetFolder(PATH)
    Set DossierDestination = oFSO.GetFolder(NPATH)
     
    For Each File In DossierSource.Files
        oFSO.MoveFile File, DossierDestination & "\" & File.Name
    Next File
 
    Set DossierDestination = Nothing
    Set DossierSource = Nothing
    Set oFSO = Nothing
End Sub