Sub Test()
Dim Fe As Worksheet
Dim Cel As Range
Dim I As Integer
Set Fe = ActiveSheet
'boucle sur les cellules contenant une formule
For Each Cel In Fe.Cells.SpecialCells(xlCellTypeFormulas)
'boucle sur les noms qui peuvent être plusieurs dans la formule
For I = 1 To Names.Count
If Names(I).RefersToRange.Parent.Name <> Fe.Name Then
Cel.Formula = Replace(Cel.Formula, Names(I).Name, Names(I).RefersToRange.Parent.Name & "!" & Names(I).RefersToRange.Address)
Else
Cel.Formula = Replace(Cel.Formula, Names(I).Name, Names(I).RefersToRange.Address)
End If
Next I
Next Cel
End Sub