Private Sub Supprimer_LiaisonsXL()
Dim Liaisons As Variant, i As Long
Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsEmpty(Liaisons) = True Then Exit Sub
For i = 1 To UBound(Liaisons)
ActiveWorkbook.BreakLink Name:=Liaisons(i), _
Type:=xlLinkTypeExcelLinks
Next i
End Sub