Bonjour à tous

Je suis sur un problème et je m'arrache les cheveux.

J'explique: Dans une rangée j'ai les données suivantes:

donnée 1* donnée 2* donnée 3* donnée 4* donnée 5*

J'aurais aimer avoir

donnée 1 donnée 2 donnée 3 donnée 4 donnée 5

Les mêmes données mais avec les étoiles en moins. Pour info, l'étoile n'est pas forcément en fin de chaine.
Donc voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim feuille as Worksheet
Dim zone as String
 
Set feuille = ActiveSheet
 
zone = "A1:A5"
 
' 1er essai : cela éfface tout 
 
feuille.Range(zone).Replace What:="*", Replacement:="", SearchOrder:=xlByRows, MatchCase:=True
 
' 2ème essai : Cela éfface tout.
 
feuille.Range(zone).Replace What:=Chr(42), Replacement:="", SearchOrder:=xlByRows, MatchCase:=True
Le problème est que l'étoile ( "*" ) est un caractère spécial. Il remplace tout.
Comment faire?

Le document à traiter peut avoir ± 25.000 lignes.

Des idées?

Merci de votre aide
André