Macro renommer feuilles

Bonjour,

je voudrais renommer les feuilles Feuil17 à Feuil30 en A4GP3 à A4GP16.

Comment procéder?

D'avance merci

Bonjour,

Une petite macro à placer dans un module

Sub RenommeOnglets()
  Dim i%
  For i = 17 To 30
    Sheets("Feuil" & i).Name = "A4GP" & i - 14
  Next i
End Sub

Bonjour

Super merci beaucoup

Bonne journée