Sub pourRompreLesLiaisons()
'Permet de rompre les liaisons d'un classeur
'XLD Catrice
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
Next
End If
End Sub