Bonjour,
ci joint du code à copier dans un module
bonne journée
Sub SupprimerLiaisonsExternes()
Application.ScreenUpdating = False
Dim MaFeuille As Worksheet
Dim MaCellule As Range
For Each MaFeuille In ActiveWorkbook.Sheets
For Each MaCellule In MaFeuille.Range('A1:BJ500') 'Plage en dur
If MaCellule.HasFormula = True And InStr(1, MaCellule.Formula, '[',
0) > 0 Then
'si la cellule est de type formule et elle contient un [ signifiant un lien externe
MaCellule.Formula = MaCellule.Value 'remplace la formule par la valeur
End If
Next MaCellule
Next MaFeuille
End Sub