erreur sur macro !!! je sèche

Bonjour à tous,

j'ai une macro qui est en erreur et je n'arrive pas à supprimer cette erreur.

Voici la macro en question:

Sub EffaceDoublons()
Dim Recept As String
Recept = ""
With Sheets("Feuil2")
For Each cel In .Range("B2:B65536").SpecialCells(xlCellTypeConstants)
If InStr(Recept, cel.Value) = 0 Then
Recept = Recept & "," & cel.Value
Else
Range("A" & cel.Row & ":C" & cel.Row).ClearContents
End If
Next
End With
End Sub

C'est la ligne soulignée qui me pose pb... le But de la macro est d'effacer les ligne de doublon mais si je pouvais les supprimer ce serait le top.

merci d'avance pour votre aide et conseil