Problème de boucle

Bonjour à tous,

Un nouveau topic pour un nouveau problème.

Je cherche à créer autant d'onglets qu'il y a de cases remplies dans la colonne A et que ces onglets portent le nom de la case correspondante.

Exemple si la colonne A contient 5 lignes remplies, je souhaiterais avec 5 onglets dont le premier porte le nom de la case A1 de la feuille 1 le deuxième de la case A2 de la feuille 1 etc

J'ai essayé de faire un code mais sans succès pour le boucle. Le premier onglet est bien créé et nommé mais c'est tout.

Je vous met le code que j'ai écris si il peut être corrigé.

"Sub Creat_and_name_NewWorksheet()

Application.ScreenUpdating = False

With Sheets("Feuil1")
i = 1
Do While Cells(i, 1) <> ""
If Not IsEmpty(Range("A1")) Then
Sheets.Add after:=Worksheets(Worksheets.Count)
Set Target = Range("Feuil1!A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
End If
Loop

End With

Application.ScreenUpdating = True

End Sub"

Merci pour votre aide

Bonjour

Ca marche quelque soit ne nombre de feuilles à créer

Sub NouvelleFeuille()
Application.ScreenUpdating = False
  Dim sh As Worksheet
  Dim dl As Integer, i As Integer

  Set sh = Sheets("Feuil1")
  dl = sh.Cells(Rows.Count, 1).End(xlUp).Row ' On determine la plage à prendre en compte
  For i = 1 To dl
    If sh.Cells(i, 1) <> "" Then
      Sheets.Add after:=Sheets(Sheets.Count)
      ActiveSheet.Name = sh.Cells(i, 1).Value
    End If
  Next i

Application.ScreenUpdating = True
End Sub

Bonjour Yal,

Merci pour votre aide, ça fonctionne encore une fois extrêmement bien.