Créer de nouveaux onglets avec une boucle For

Bonjour!

Je cherche à créer une série de nouvel onglet dont la quantité et le nom de chacun des onglets sont définis dans un premier onglet déjà existant (ouf! je sais pas si c'est très clair...). Les données du premier onglets sont en colonne et j'ai cru bon faire une boucle For qui boucle jusqu'au dernier élément de la colonne (le nombre d'élément de la colonne peut être changé par un utilisateur et la macro doit toujours fonctionner). Mais quand je compile, le tout s'execute à merveille mais me donne une erreur 1004 : Erreur définie par l'application ou par l'objet

Quelqu'un voit ce qui cloche dans mon code ?

Sub Nouvelle_Feuille()

Dim i As Long, iNbSites As Long
iNbSites = ActiveSheet.UsedRange.Rows.Count + 1

For i = 6 To iNbSites
    'Sheets.Add.Name = Worksheets("SK - Sites").Range("B" & i).Value
    Sheets.Add , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Worksheets("SK - Sites").Range("B" & i).Value

Next

End Sub

Merci d'avance!

Bonsoir

sans connaitre ton fichier je suppute (ce n'est pas un gros mot) que tu veux renommer une feuille avec le contenu d'une cellule vide

Si pas ça reviens avec un fichier représentatif de ton fichier réel

Merci beaucoup pour l'aide! En creusant j'ai remarqué que c'est exactement ce qui se produisait! Il fallait tout simplement modifier :

iNbSites = ActiveSheet.UsedRange.Rows.Count + 1

par :

iNbSites = ActiveSheet.UsedRange.Rows.Count - 1

Erreur de débutant... Désolé pour le dérangement!