erreur 70 : accés refusé

Bonjour,

J'ai un problème, lorsque je lance ma macro, à l'initialisation, un message d'erreur bloque tout, celui de l'intitulé.
Je sais ce problème a été soulevé de nombreuses fois dans ce forums et dans bien d'autres, mais aucune réponses n'a résolue mon problème. Mon code est assez long, je vous passe donc la partie responsable du message d'erreur puisque lorsque je supprime tout le reste, le message persiste.

rivate Sub userform_initialize()
Dim NoDupes As New Collection
Sheets("clients").Activate
Range([C4], [C65536].End(xlUp)).Select
For Each Cell In Selection
If Cell.Value = "" Then
Else
NoDupes.Add Cell
End If
Next Cell
For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Next j
Next i
For Each Item In NoDupes
UserForm1.NomDesClients.AddItem Item
Next Item
Application.Goto Reference:=Range("A1"), Scroll:=True
End sub

Merci beaucoup de vos réponses et à bientôt