Ajouter (2) au nom de tous mes onglets

Bonjour à tous,

je cherche une macro vba qui me permettrais de rajouter (2) ou _old au nom de tous les onglet d'un même classeur

J'ai essayer plusieurs macro sans succès je me tourne donc vers vous.

Merci d'avance.

Bonjour,

Sub truc()
Dim f As Worksheet
For Each f In Worksheets
    f.Name = f.Name & " (2)"
Next
End Sub

Bonjour

Sub test()
  Dim Ws As Worksheet
  For Each Ws In Worksheets
    Ws.Name = Ws.Name & "_old"
  Next Ws
End Sub

Magnifique Merci