Création onglet et renomer en fonction de la valeur d'une cellule

Bonjour,

Dans une feuille "matrice", j'ai une ligne avec un nombre variable de noms (de 0 à 5).

En cliquant sur un bouton de la feuille "matrice", je souhaite créer autant d'onglets que de noms contenus dans la ligne (ça j'ai réussi à le coder).

Et je voudrais que chaque onglet soit nommé par un des noms contenus dans la ligne de ma feuille "matrice".

De plus, dans cet onglet il faudrait faire apparaitre ce même nom dans une case ("B5")

Ça me parait simple, mais mon code ne marche pas (c'est la ligne en rouge qui beugue)...

Sub feuille_agent()

'création d'un onglet par agent

'afficher l'onglet matrice agents

Sheets("Matrice agent").Visible = True

Dim i, Nb_agents

'Création d'une variable qui compte le nombre d'agents

Nb_agents = Application.WorksheetFunction.CountA(Range("C6:G6"))

MsgBox Nb_agents

'Créer autant d'onglets que d'agents

For i = 1 To Nb_agents

Dim Nom_agent As String

MsgBox Nom_agent

Worksheets("Matrice agent").Copy After:=Worksheets(i)

ActiveSheet.Name = Nom_agent

ActiveWindow.DisplayGridlines = False

Range("B5").Value = Nom_agent

ActiveSheet.Protect

Next i

Sheets("Matrice agent").Visible = False

End Sub

Merci pour votre aide, et vive le VBA !

Bonjour

fournit un fichier exemple avec des noms bidons....

on pourra t'aider plus facilement

Fred

Bonjour,

Dans le Fichier joint ,je corrige la ligne concernée

la procédure semble se dérouler correctement

A bientôt