Sub Import()
Workbooks.Open ThisWorkbook.Path & "\source.xlsx"
If MsgBox("Remplacement données feuille """ & Feuil1.Name & """ désiré ?", vbYesNo + vbExclamation, "Importation") _
= vbYes Then ActiveWorkbook.Worksheets("Migration Risk Analysis").[A2:B50001].Copy Destination:=Feuil1.[A11]
ActiveWorkbook.Close False
End Sub