Sub liminal()
Dim strPath$, fichier$
Dim sourceWBK As Workbook, destiWBK As Workbook
strPath = "D:\Gestion AHI\transfer\"
fichier = "recept_adh.xlsx"
Application.ScreenUpdating = False
Set sourceWBK = Workbooks.Open(strPath & fichier)
Set destiWBK = ThisWorkbook
sourceWBK.Sheets("Effectif").Copy before:=destiWBK.Sheets(1)
sourceWBK.Close False
End Sub