Sub test()
On Error Resume Next
Dim i
Dim SourceFile, DestinationFile
SourceFile = "C:\iCatalog\Pictures\" ' Définit le nom du répertoire source.
DestinationFile = "C:\Documents and Settings\Will\Desktop\Transfert de Photo\Photos\" ' Définit le nom du répertoire cible.
' Copie des fichiers dans le répertoire cible.
For i = [A65536].End(xlUp).Row To 1 Step -1
FileCopy SourceFile & Cells(i, 1) & ".jpg", DestinationFile & Cells(i, 1) & ".jpg"
Next
End Sub