Rompre les liaisons

Bonjour à tous,

Je souhaiterais créer une macro pouvant rompre les liaisons mais ça ne marche pas.

"Erreur d'exécution :'1004' :

La méthode 'Breaklink' de l'objet '_Workbook' a échoué"

Voici ci-dessous ma macro obtenue par enregistrement.

Sub Macro1()

'

' Macro1 Macro

'

'

Sheets(Array("SYNTHESE", "HEURES travaillées", "Mars 2014", "Avril 2014", _

"Mai 2014", "Juin 2014", "Juillet 2014", "Août 2014")).Select

Sheets("Août 2014").Activate

Sheets(Array("SYNTHESE", "HEURES travaillées", "Mars 2014", "Avril 2014", _

"Mai 2014", "Juin 2014", "Juillet 2014", "Août 2014")).Copy

Range("I18").Select

ActiveWorkbook.BreakLink Name:="S:\Ventes\TB MAGASIN\TB Magasin 2602.xlsx", _

Type:=xlExcelLinks

End Sub

Merci de votre aide

Bonsoir,

A adapter

Public Sub BreakLinks()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBound(Links)
ActiveWorkbook.BreakLink _
    Name:=Links(i), _
    Type:=xlLinkTypeExcelLinks
Next i
End Sub