[COLOR=blue]Sub[/COLOR] UseBreakLink()
[COLOR=blue]Dim[/COLOR] astrLinks [COLOR=blue]As[/COLOR] [COLOR=blue]Variant[/COLOR]
[COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
[COLOR=green]' Define variable [COLOR=blue]as[/COLOR] an Excel link [COLOR=blue]type[/COLOR].[/COLOR]
astrLinks = ActiveWorkbook.LinkSources([COLOR=blue]Type[/COLOR]:=xlLinkTypeExcelLinks)
[COLOR=blue]If[/COLOR] IsEmpty(astrLinks) [COLOR=blue]Then[/COLOR] [COLOR=blue]Exit[/COLOR] [COLOR=blue]Sub[/COLOR]
[COLOR=green]'Parcourir le tableau des liens pour les rompres[/COLOR]
[COLOR=blue]For[/COLOR] i = LBound(astrLinks) To [COLOR=blue]UBound[/COLOR](astrLinks)
ActiveWorkbook.BreakLink _
Name:=astrLinks(i), _
[COLOR=blue]Type[/COLOR]:=xlLinkTypeExcelLinks
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]