Aide sur une formule de suppression

Bonjour à tous,

Je cherche à supprimer " † " dans la colonne A de ma feuille1.

Donc je met comme formule:
Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("Pronos Daily Donkey1").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="†~ ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Mais quand je met ca il me reste encore une espace à supprimer et impossible de la supprimer automatiquement!!!! 😕

MQerci pour votre aide 😉