Recherche chaine de texte

Salut coucou

Avec le peu d'info que tu donne voila une proposition

dim m_cell as range
dim chaine_seach as string
dim chaine_replace as string

chaine_search=inputbox('entrer la chaine de caractère à changer')
chaine_replace=inputbox('entrer la chaine de caractère deremplacement')

range('A1',range('A65536').end(xlup)).select
for each m_cell in selection
if m_cell.value like '*' & chaine_search & '*' then
m_cell.value=left(m_cell.value,instr(1,m_cell.value,chaine_search,vbtextcompare)) & ' ' & chaine_replace & ' ' & right(m_cell.value,len(m_cell.value)-len(chaine_search)-1)
end if
next
cela devrait marcher si tu veux remplacer une partie du contenue d'une cellule de la colonne A dans le contexte.

Si tu veux changer toutes la cellule il faut simplifier mon code.

A+