Sub Transfert()
Dim dossier1$, dossier2$, fichier$
dossier1 = ThisWorkbook.Path & "\Nouveaux logos\"
dossier2 = ThisWorkbook.Path & "\Stock de logos\"
fichier = Dir(dossier1)
On Error Resume Next
While fichier <> ""
Name dossier1 & fichier As dossier2 & fichier
fichier = Dir
Wend
End Sub