VBA Liste

If i = 1 Then 
ChDrive "C:\"
ChDir "C:\X_Y/A\"
End If
If i = 2 Then
ChDrive "C:\"
ChDir "C:\X_Y_Z\"
End If
If i = 3 Then
ChDrive "C:\"
ChDir "C:\\X_Y_R\"
End If

If i = 1 Then ChDir "C:\X_Y/A\"
If i = 2 Then ChDir "C:\X_Y_Z\"
If i = 3 Then ChDir "C:\\X_Y_R\"

Sub Copier_Deplacer()
Dim FSO As Object
Dim DossierSource As Object
Dim Fichier As Object, DossDestination As String
Dim Fich As String
'à adapter
Repertoire = "C:\Excel\"
DossDestination = "C:\Intel\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DossierSource = FSO.GetFolder(Repertoire)

For Each Fichier In DossierSource.Files
    Fich = Fichier.Name
    'FSO.CopyFile Repertoire & Fich, DossDestination & Fich, True 'True écrase le fichier, pas False
    'pour déplacer ver un autre répertoire,  quasiment la même syntaxe avec move.
    FSO.MoveFile Repertoire & Fich, DossDestination & Fich
    ' Il faut gérer l'existence ou nom d'un fichier identique
    ' If FichExiste(DossDestination & Fich) Then FSO.MoveFile Repertoire & Fich, DossDestination & Fich
Next Fichier
Set DossierSource = Nothing
Set FSO = Nothing
End Sub

Function FichExiste(Path As String) As Boolean
    ' Path = chemin + fichier
    FichExiste = Dir(Path) <> ""
End Function