Bonjour à tous,
Imy, peux tu essayer la solution suivante:
Dim Chemin, chemin2, MasterChemin, NewChemin As String, Delta, Lchemin, Lchemin2 As Integer
Chemin = ThisWorkbook.Path
chemin2 = "\Da" ' Chemin ou se trouve le fichier dans l'application
Lchemin = Len(Chemin)
Lchemin2 =...