Sub test_III()
Dim Feuilles, wb As Workbook, i&, vLks As Variant
Feuilles = Array("Feuil1", "Feuil3")
ThisWorkbook.Sheets(Feuilles).Copy
Set wb = ActiveWorkbook
With wb
On Error Resume Next
vLks = .LinkSources(Type:=xlLinkTypeExcelLinks)
On Error GoTo 0
If Not IsEmpty(vLks) Then
For i = 1 To UBound(vLks)
.BreakLink Name:=vLks(i), Type:=1
Next i
End If
With .Sheets("Feuil1"): .Name = "toto": .Range("A1:A11") = "": End With
With .Sheets("Feuil3"): .Name = "titi": .Range("A1:A11") = "": End With
End With
End Sub