Bonjour

Sur une feuilles j'ai nommé une cinquantaine de cellule du type
tony_D_3tr
et je veux sur une copie de cette feuille modifier tout les noms avec 3tr en 4tr

en test enregistrement macro ça donne ça


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Sub Macro1()
    With ActiveWorkbook.Worksheets("EBP 4TR").Names("tony_D_3tr")
        .Name = "tony_D_4tr"
        .RefersToR1C1 = "='EBP 4TR'!R124C3"
        .Comment = ""
    End With
End Sub
et ainsi par la suite appliqué la même méthode pour une feuille en 1tr et en 2tr

Merci pour votre aide