Trouvé grâce à toi, alors j'avais lu qu'il fallait pour la fonction FileCopy des " en début et en fin, et ce n'est pas du tout le cas, même s'il y a des espaces dans votre arborescence.
Donc si erreur 52, pensez à enlever les guillemets
Merci a toi, Voici donc le code qui fonctionne
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Donnees As Worksheet, DerniereLigne&, i&, repdest As String
Dim FileSource As String
Dim FileDest As String
Set Donnees = ThisWorkbook.Sheets("Feuil1")
DerniereLigne = Donnees.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To DerniereLigne
FileSource = Donnees.Range("X" & i).Value
If Dir(FileSource) <> "" Then 'vérifie que le fichier source existe
FileDest = Donnees.Range("Y" & i).Value
repdest = Left(FileDest, InStrRev(FileDest, "\") - 1)
If Dir(repdest, vbDirectory) <> "" Then 'vérifie que le répertoire de destination existe
FileCopy FileSource, FileDest
Else
MsgBox "je ne trouve pas le répertoire " & repdest
End If
Else
MsgBox " je ne trouve pas le fichier " & FileSource
End If
Next i
End Sub
PS : j'ai également deplacé mes répertoires, mais cela n'avait eut aucun impacte, et voici mes deux colonnes
X
D:\Dossier CENTRAKOR\Dossier CENTRAKOR\Boutons Décors\Base article\0787117100204_EMB.jpg
Y
D:\Dossier CENTRAKOR\Dossier copie CENTRAKOR\Boutons Décors\Base article\7112-0-67.jpg