Automatisation de la fonction "remplacer"

Bonjour à tous !

Je cherche à automatiser la fonction "remplacer" d'excel par une formule ou autre...

J'ai une base de données sur une colonne A

Je doit remplacer les valeurs de la colonne B contenues dans A par les correspondances en colonne C

Un peu fouilli n'est ce pas...?

Je joins un exemple pour être plus compris (enfin j'espère ! )

Bonjour

Formule en B2 à incrémenter vers le bas.

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"00713";"12752");"05141";"AZHD");"00725";"JUTRE");"00968";"RTYZ")

Cordialement

L'exemple reste très court car dans l'absolu j'ai 630 cases dans la colonne B...

Comment faire...?

Bonjour à tous,

Les lignes 35 à 51 sont-elles à prendre en compte ou oublie d'effacement ?

Claude

édit: en prenant tout

Sub Remplace()
Dim Lg%, Nb%, i%
''Macros par Claude Dubois pour "charly_xiii" Excel-Pratique le 06/02/10
    Application.ScreenUpdating = False
        Nb = Range("b1").End(xlDown).Row
        Lg = Range("A65536").End(xlUp).Row
        If Nb > Lg Then Exit Sub
    For i = 2 To Nb
        Range("A2:A" & Lg).Replace What:=Cells(i, 2), Replacement:=Cells(i, 3)
    Next i
End Sub

non c'est le rest d'une autre base sur lequel je travaillais plus tôt

Dans l'absolu on a en nombre de cases :

Colonne A : 6880

Colonnes B et C : 630

Cela change t il quelque chose au script?

Re,

Compris

Formule en D2

=SI(ESTERREUR(EQUIV(STXT(A2;9;5);$B$2:$B$5;0));A2;SUBSTITUE(A2;STXT(A2;9;5);DECALER($C$1;EQUIV(STXT(A2;9;5);$B$2:$B$5;0);)))

Cordialement

Un grand merci à vous deux...

Dubois tes formules sont toujours exactes ! Merci

Amadeus j'ai fais évoluer ta formule car la premère chaine de caractères est aussi permutable, je ne l'avais pas préciser dans l'exemple, et le nombre de cases en B est de 633 (pour etre exact) et non de 5 comme dans l'exemple.

Je me sert de celle de Dubois pour ce cas précis mais Amadeus vient de m'ouvrir les yeux sur une autre application possible !!!

Un grand merci encore à vous deux !