Dim strPath$, str2Path$, fichier$, fichier2$
Dim sourceWBK As Workbook, destiWBK As Workbook
' CHEMIN ======
NomFichierComplet = UserForm1.chemin3 & "\"
nomfichierrecept = UserForm1.chemin2 & "\"
strPath = NomFichierComplet '"D:\Gestion AHI V2\transfer"
str2Path = nomfichierrecept
fichier = "recept_adhe.xlsx"
fichier2 = "Donnees.xlsm"
Application.ScreenUpdating = False
Set sourceWBK = Workbooks.Open(strPath & fichier)
Set destiWBK = Workbooks.Open(str2Path & fichier2)
sourceWBK.Sheets("Effectif").Copy before:=destiWBK.Sheets(1) '-- destiWBK n'est pas bon
sourceWBK.Close False