On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call objFSO.MoveFile("C:\*.pdf", "\\monserveur\partage_cible")
Set objFSO = Nothing