n'appartient pas à la sélection 9

Bonjour,
J'utilisais une macro sans soucis jusqu'à présent, mais maintenant elle
bloque et me met le message " n'appartient pas à la sélection".
Je mets le début de la macro, qui avant fonctionnait très bien, mais plante
maintenant ??
Merci pour votre aide.

Sub Répart_JUR_QuandClic()
'
' Répart_JUR_QuandClic Macro
' Macro enregistrée le 28/09/2006 par da
'
Dim cell As Range, Nom$, Sht As Worksheet
' Application.ScreenUpdating = False

'----------------------------------------------------------------------------
'Filtre pour obtenir tous les Gestionnaires
Sheets("Totalité").Select
Range("A4:AF5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=
_
Range("Ag1:Ag2"), CopyToRange:=Range("Ag4"), Unique:=True
lign = [ag65000].End(xlUp).Row
Range("Ag5:Ag" & lign).Select
Selection.Cut
Sheets("SyntHèse").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

'----------------------------------------------------------------------------
'Tri décroissant pour créer les feuilles
Range("D2:d" & lign - 3).Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'----------------------------------------------------------------------------
'Création d'une feuille pour chaque Gestionnaire
For Each cell In Selection
Nom = cell.Value
If Nom <> "" Then
On Error Resume Next
Set Sht = Sheets(Nom) ---------------> c'est ici qu'apparaît le
message ??? sht = nothing et nom = 1er nom de la liste.
On Error GoTo 0
If Sht Is Nothing Then Sheets.Add.Name = Nom
End If
Next cell