Macro pour "remplacer par" successifs

Bonjour

Dans mon fichier excel :

-dans le feuillet A, j'ai des données

-dans le feuillet B, j'ai des données dans la colonne X et dans la colonne Y (table de correspondance), sur 500 lignes (X1:Y500).

Dans les colonnes Z et AA du feuillet A (et uniquement ces colonnes), je voudrais remplacer toutes les chaines de caractères listées dans la colonne X du feuillet B par la valeur correspondante dans la cellule de la colonne Y du feuillet B.

Cela reviendrait à faire des "remplacer par" successifs.

Mais comme j'ai 500 "remplacer par" à faire, je voudrais une macro pour cela.

Quelqu'un sait-il faire cela ?

Merci

Bonsoir,

Essayez ceci

Sub Remplacer()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_A As Long, DerLig_B As Long, i As Long
    Dim Valeur_X As String, Valeur_Y As String
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuillet_A")
    Set f2 = Sheets("Feuillet_B")

    DerLig_A = f1.Range("Z1").CurrentRegion.Rows.Count
    DerLig_B = f2.Range("X1").CurrentRegion.Rows.Count

    For i = 1 To DerLig_B
        Valeur_X = f2.Cells(i, "X")
        Valeur_Y = f2.Cells(i, "Y")
        f1.Range("Z1:AA" & DerLig_A).Replace What:=Valeur_X, Replacement:=Valeur_Y, LookAt:=xlPart
    Next i
    Set f1 = nithing
    Set f2 = Nothing
End Sub

Cdlt

merci !