VBA qui supprime une partie des liaisons dans un fichier

Bonjour,
J'ai un fichier qui est lié à 4 autres fichiers Excel par des liaisons:
Suivi Variation IBE VBA TEST TEST 1.xlsm
Suivi Variation IBE VBA TEST TEST 2.xlsm
Suivi Variation IBE VBA TEST TEST 3.xlsm
Suivi Variation IBE VBA TEST TEST 4.xlsm

J'ai essayé le codage VBA ci-dessous pour supprimer uniquement les liens des fichiers Suivi Variation IBE VBA TEST TEST 1.xlsm et Suivi Variation IBE VBA TEST TEST 2.xlsm
mais cela ne fonctionne pas (voir capture d'écran ci-dessous)
Est-ce que vous pouvez m'aider ?
j'ai joint un fichier illustratif

Pièce jointe 616095
Merci beaucoup de votre aide.
Cordialement.

Merci Forum
J'ai trouvé la solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)   If X Like "*" & "Suivi Variation IBE VBA TEST TEST 1.xlsm" & "*" = True Or X Like "*" & "Suivi Variation IBE VBA TEST TEST 5.xlsm" & "*" = True Then   ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks End If Next End If End Sub

---