Microsoft 365 Insérer une copie d'un onglet dans le classeur

[Rosco1669]

Bonsoir,

Après de multiple recherche, je ne trouve pas la solution à mon problème.
Je souhaite que mon tableau crée une copie de la feuille "Base" et l'insère dans le classeur en dernière position, jusque là, pas de souci, mais je souhaite que cette onglet soit renommée avec la valeur de la cellule A1 de la feuille "pdg"

Voici le code sur lequel je bloque:

Sub Copie_Onglet()
Sheets("Base").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets(ThisWorkbook.Sheets.Count).Index).Name = pdg.Range("A1").Value
End Sub

C'est la ligne en rouge qui provoque l'erreur "erreur 424, objet requis"

Je joins également le fichier.

Un grand merci pour votre très précieuse aide

 

[Phil69970]

Bonjour @Rosco1669 et bienvenu sur XLD

Je te propose ceci :

Sub Copie_Onglet()
Sheets("Base").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets(ThisWorkbook.Sheets.Count).Index).Name = Sheets("pdg").Range("A1").Value
End Sub

Merci de ton retour

@Phil69970

 

[Rosco1669]

Bonjour Phil69970,

Un grand merci, cela fonctionne à merveille.