Remplacer par un caractère spécial

Bonsoir,

J'essaie de remplacer "*" par un carré dans la colonne G du fichier exemple ci-joint. Le code que j'utilise ne fonctionne pas...

With range("G" &  i)
.Replace What:="~*", Replacement:=ChrW(&H25AA), LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End With

Qui peut me dire où est-ce que je suis trompée ?

Merci beaucoup,

Bonne soirée,

Amicalement

Bonsoir

Pour info ta macro fonctionne

Bonjour Banzai64, le forum,

oui, désolée du dérangement... J'ai fermé mon fichier, puis ré-ouvert et là, ça fonctionnait...

Encore désolée...

Merci beaucoup en tout cas !

Bonne soirée,

Amicalement