Copier et renommer feuille dans nouveau classeur

Bonjour,

Novice en VBA et nouveau dans ce forum.

Je pose peut être une problématique qui a été déjà soumise, probablement je ne l'ai pas retrouvée.

Le sujet est comme suit:( voir fichier joint)

Je souhaite dupliquer la feuille "TBORD" indexée par les 50 centres de la feuille "Centres" dans un fichier à part qui portera le nom du centre.

la duplication se fait, par contre je n'arrive pas renommer la feuille "TBORD" du nouveau centre avec le nom du centre.

Merci de votre aide

Pierre

Bonjour

En modifiant cette partie du code dans la Macro1

Nomcentre = Sheets("Centres").Cells(Nbcentres + 2, 2)
With Sheets("TBORD")
    .Range("B2") = Sheets("Centres").Cells(Nbcentres + 2, 1)
    .Copy
End With
With ActiveWorkbook
    .Sheets("TBORD").Name = Nomcentre 'ou ceci --> ThisWorkbook.Sheets("TBORD").Range("D2")
    .SaveAs Repertoire & "\" & Nomcentre
    .Close
End With
Next

Si ok, lors de votre réponse veillez à clôturer le fil en cliquant sur la case à cocher verte à coté du bouton EDITER

Cordialement

Merci beaucoup Dan, c'est parfait!