Renommer 150 feuilles en même temps

Bonjour,

Comment renommer 150 feuilles d'un classeur Excel en même temps ?

Je souhaite :

Aujourd'hui mes 150 feuilles ont le nom "Fact 1" ...."Fact 150"

et pour faire fonctionner des lien hypertexte je dois renommer par "Fact_1" ...."Fact_150".

Merci de votre solution !

Grég

Bonjour,

Essaye une macro comme la suivante par exemple :

Sub test()
    For Each sh In Worksheets
        sh.Name = Replace(sh.Name, "Fact", "Fact_")
    Next
End Sub

Bonjour Raja,

Merci beaucoup !

Grég