Dim objFSO RepertoireSource = "D:\Toto\MonrepertoireNommeToto" RepertoireCible = "E:\MonrepertoireNommeToto" Set objFSO = CreateObject("Scripting.FileSystemObject") If (objFSO.FolderExists(RepertoireSource) = True) And (objFSO.FolderExists(RepertoireCible) = True) Then Call objFSO.MoveFolder RepertoireSource, RepertoireCible End If Set objFSO = Nothing