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

[mycete]

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

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

 

[mycete]

bon j ai modifié mon code

For Each cell In Selection
Nom = cell.Value
If Nom <> '' Then
On Error Resume Next
If Nom <> Sheet.Name Then Sheets.Add.Name = Nom
End If
Next cell


ca a l air de marcher mais est bien juste .
n aurais je pas des problemes?

mais peut t on m expliquer l interet du 'set'

 

[mycete]

non en fait ca marche pas top
:evil: :evil: !!

DOnc j en reviens a ma question initiale !!