Creation de feuille suivant une liste

Bonsoir à tous :

J'utilise ce code pour ajouter des feuilles dans mon classeur :

Sub ajout_feuilles()
    Dim nom As String, c As Range
    For Each c In Range("liste")
        nom = c.Value
        If nom <> "" Then
            Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = nom
        End If
    Next c
End Sub

Le soucis que je rencontre que lorsque je fais des mises à jour dans ma liste et que je relance la macro, elle bloque

si une feuille existe déjà.

Quelle ligne ajouter pour lui presicer que si la feuille existe : next c ?

Merci beaucoup.

Landry

Bonjour

Essaie ce code :

Sub ajout_feuilles()
    Dim nom As String, c As Range
    For Each c In Range("liste")
        nom = c.Value
        If nom <> "" Then
            Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
            On Error Resume Next
            ActiveSheet.Name = nom
            If Err > 0 Then
                Application.DisplayAlerts = False
                ActiveSheet.Delete
            End If
        End If
    Next c
End Sub

Bye !

C'est parfait!

Merci à toi