Bonjour,
voici un exemple,
Sub test()
Set wk1 = ThisWorkbook
ActiveSheet.Copy
Set wk2 = ActiveWorkbook
For Each lks In wk2.LinkSources
ActiveWorkbook.BreakLink Name:=lks, Type:=xlExcelLinks
Next
nouveauNom = "nouvelle onglet" & wk1.Sheets.Count
ActiveSheet.Name = nouveauNom
Sheets(nouveauNom).Copy After:=wk1.Worksheets(wk1.Sheets.Count)
wk2.Close False
End Sub