macro se bloquant sur 1 doublon sur création d'ong

Bonjour le forum

Dim cell As Range, Nom As String, Sht As Worksheet
For Each cell In Selection
Nom = cell.Value
If Nom <> '' Then
On Error Resume Next
Set Sht = Sheets(Nom)
On Error GoTo 0
If Sht Is Nothing Then Sheets.Add.Name = Nom
End If
Next cell

Cliquez pour agrandir...

voila le code qui me pose probleme

dans une colonne sélectionnée si 2 meme valeur se suivent le code ne continue plus ( en tout cas la création d'onglet s' arrete!
savez vous pourquoi ?
Ca bloque pour vous aussi

Sachant que si des doublons existent mais ne sont pas collés alors la ca marche !!!

comprends pas !!
j ai l impression que cest a cause du 'set sht ...'
mais je sais pas comment le 'réactualiser