SaveCopyAs 

Sub AllFiles()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

        FromPath = ch9.value  'Souece Folder
        ToPath = "E:\BASE_DOCUMENTATIONS_DP\"    'Destination folder

            If Right(FromPath, 1) = "\" Then
                FromPath = Left(FromPath, Len(FromPath) - 1)
            End If

            If Right(ToPath, 1) = "\" Then
                ToPath = Left(ToPath, Len(ToPath) - 1)
            End If

        Set FSO = CreateObject("scripting.filesystemobject")
         If Me.ch6.Value = "DOS_NOTES" Then
  
      FSO.CopyFolder Source:=FromPath, Destination:=ToPath & "\DOS_NOTES\" 
     End If
 	If Me.ch6.Value = "DOS_INSTRUCTIONS" Then
   FSO.CopyFolder Source:=FromPath, Destination:=ToPath & "\DOS_INSTRUCTIONS\" 
   	End If
  	If Me.ch6.Value = "DOS_PROCEDURES" Then
   FSO.CopyFolder Source:=FromPath, Destination:=ToPath & "\DOS_PROCEDURES\" 
  	 End If
  	 If Me.ch6.Value = "DOS_CAS_ESPACES" Then
   FSO.CopyFolder Source:=FromPath, Destination:=ToPath & "\DOS_CAS_ESPACES\" 
 	End If
        
        
       

    End Sub