Bonjour,
J'avais laissé tomber tellement je ne comprenais plus rien d'où ma réponse tardive
je pense que c'est de cela dont tu parles --->
Sub Archivage_Devis()
Dim chemin$, Sep$, nom$, chm$, Lks, B
chemin = ThisWorkbook.Path
PathSep = Application.PathSeparator
nom = [D8] & "-" &...