Copier et renommer une feuille

Bonjour,

Je suis débutant en VBA et je souhaite générer plusieurs copie d'une feuille(1), renommer ces feuilles a partir des valeurs "charactère" des cellules d'une autre feuille (2).

Merci pour votre aide,

Bonjour,

Voici un code qui devrait fonctionner mais à adapter sur votre fichier

Sub test()
'
'

'
    Sheets("Feuil1").Select  'la feuille à copier"
    Sheets("Feuil1").Copy Before:=Sheets(1)
    Sheets("Feuil1 (2)").Select 'la nouvelle feuille"
    Sheets("Feuil1 (2)").Name = Sheets("Feuil1").Cells(5, 3) 'la cellule qui comprend le nom pour la nouvelle feuille'
End Sub

Mercii ça marche :D