création de feuilles depuis les nom d'une liste

Sub test()
Dim x%, ws As Worksheet
Application.DisplayAlerts = False
For x = 1 To 3
    If Not x = 1 Then
retour:
        ActiveSheet.Delete
        MsgBox "La feuille " & Sheets("feuille_contenant_la_liste").Cells(x, 1).Value & " existe deja"
    Else
        For Each ws In Worksheets
            'If Not ws.Name = "feuille_contenant_la_liste" Then
                Sheets.Add After:=Sheets(Sheets.Count)
                On Error GoTo retour:
                ActiveSheet.Name = Sheets("feuille_contenant_la_liste").Cells(x, 1).Value
                Exit For
            'End If
        Next ws
    End If
Next x
Application.DisplayAlerts = True
Exit Sub
End Sub