Création et copie d'onglets en fonction d'une liste

Bonjour à toutes et à tous,

Je dois réaliser des grilles d'évaluation des élèves et chaque année je rencontre le même problème.

Le voici:

Chaque année j'ai de nouveaux élèves et donc je dois reprendre onglet par onglet tous les noms.

J'aimerai automatisé cette tache avec une macro VBA .

D'après une liste que j'établi au préalable contenant les noms des nouveaux élèves j'aimerai que grâce à une macro automatiser la création des nouveaux onglets par rapport à un modèle déjà fait .

En gros j'aimerai dupliquer l'onglet modèle en fonction du nombre d'élève de ma liste et renommer automatiquement les onglet toujours en fonction de ma liste.

Je vous joint le fichier pour que vous puissiez avoir une idée plus précise de mon problème.

Je vous remercie d'avance ,

Rémy

Bonjour,

Éventuellement ce code pourrait t'aider

Sub CreationFeuilleParNom()
Dim DerLig As Long, i As Integer

DerLig = Feuil2.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
    For i = DerLig To 4 Step -1
        Sheets("Modèle").Copy After:=Feuil2
        ActiveSheet.Name = Feuil2.Cells(i, 2)
    Next i
Application.ScreenUpdating = True
End Sub

Bonne journée

Le code répond tout à fait à mes demande . Je te remercie .