Comment supprimer noms dans formules et remettre référence

Bonjour,

J'ai réalisé un tableau avec des formules utilisant des noms de cellules, je cherche une solution pour remplacer

dans toutes les formules le nom par la référence originelle.

Je désire réaliser cette opération car je dois faire un copier coller d'onglets provenants d'un fichier référence vers un fichier utilisateur, et excel me demande une validation pour chaque nom que je colle (et comme j' ai plus de 300 noms....ce n'est pas gérable), c'est pourquoi si je supprimais mes noms dans mes formules le copier coller serait alors facilement réalisable.

Merci d'avance

Bonjour

A tester

Option Explicit

Sub RemplaceNomsDefinis()
Dim I As Integer, K As Integer
Dim Cel As Range

  Application.DisplayAlerts = False

  With ActiveWorkbook
    For I = 1 To .Names.Count
      If .Names(I).Visible Then
        For K = 1 To Sheets.Count
          Set Cel = Sheets(K).Cells.Find(what:=.Names(I).Name, LookIn:=xlFormulas, lookat:=xlPart)
          If Not Cel Is Nothing Then
            Do
              Cel.Replace what:=.Names(I).Name, replacement:=Mid(.Names(I).RefersToLocal, 2)
              Set Cel = Sheets(K).Cells.FindNext(Cel)
            Loop While Not Cel Is Nothing
          End If
        Next K
      End If
    Next I
  End With
End Sub

Bonjour,

j'ai testé sur une feuille allégée et ça marche nickel

merci beaucoup!

Jean-Paul