Chemin_source = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 2) & Range("l2").Value & "/"
Chemin_cible = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 2) & Range("l3").Value & "/"
fichier_source = Range("m2").Value & "-20"
fichier_cible = Range("m3").Value & "-20"
N_fichier_source = Chemin_source & fichier_source & ".xlsm"
n_fichier_cible = Chemin_cible & fichier_cible & ".xlsm"
' Création du Fichier Cible et ouverture
With ActiveWorkbook
.SaveCopyAs n_fichier_cible
End With
Workbooks.Open n_fichier_cible