voila la vba qu'on ma proposer et qui fonctionne :3
Sub teste()
Dim nom1$, nom2$, chn$: Worksheets("feuille1").Select
chn = Names("teste"): chn = Right$(chn, Len(chn) - 2)
nom1 = Left$(chn, Len(chn) - 1)
chn = Names("teste2"): chn = Right$(chn, Len(chn) - 2)
nom2 = Left$(chn, Len(chn) - 1)
Cells.Replace What:=nom1, Replacement:=nom2
End Sub