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 ?

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

Merci beaucoup de votre aide.
Cordialement.