Nommer onglets à partir d une liste

Bonjour,

Voilà je crée un classeur excel à partir d une liste
une fois les onglets créés je souhaite les renommer à partir de la même liste.

Après je souhaite détacher chaque onglet et les enregistrer en tant que classeur avec le nom de l'onglet.

J'ai essayé ce code mais sans succès.


Sub NommerFeuilles() '
MaVar = Range("NBDIR").Value

For x = 3 To MaVar
Sheets(x).Name = Sheets(1).Cells(x, 1).Value
Next
End Sub

Quelqu'un a t il une idée ?

Par avance merci