Bonjour à tous,
Hamed voici un code qui crée un classeur et renommes chaque feuille à partir des noms inscrits dans la colonne B de ta feuille1.
Pour 2 raisons le code est bloqué à 255 feuilles:
la 1ere à cause de SheetsInNewWorkbook qui s'arrete à 255, permet de modifier l'option qui se trouve dans Outils/option/Général/Nbre de feuilles par nouveau classeur
la 2 eme faire un classeur avec plus de 10 feuilles, Je trouve personnellement que c'est pas raisonnable, il y a des façons différentes de mettre en place un fichier Excel, mais c'est un autre sujet..
Sub Hamed()
Dim NbFeuille As Byte, I As Integer
Dim WB1 As Workbook, WB2 As Workbook
Set WB1 = ActiveWorkbook
NbFeuille = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = [B257].End(xlUp).Row - 1
Workbooks.Add: Set WB2 = ActiveWorkbook
For I = 1 To WB2.Sheets.Count
WB2.Sheets(I).Name = WB1.Sheets(1).Cells(I + 1, 2)
Next I
Application.SheetsInNewWorkbook = NbFeuille
End Sub
A+++