Macro "remplacer par" en boucle (successifs)

Bonjour,

J'utilise xl2007.
Je cherche une macro pour réaliser successivement des "remplacer par" dans une plage de cellules.

Disons que cette plage se trouve dans la "Feuille 1", disons dans la plage A10:Z9999.

Et dans la plage de la "Feuille 2" B1:C1000 (c'est un exemple, mais le nombre de ligne de cette plage est variable), j'ai listé sous forme de tableau la liste des "remplacer par" à réaliser (colonne B : les expressions à rechercher ; colonne C : les expressions par lesquelles il faut remplacer les expressions précédentes).

Je cherche à rédiger la macro permettant de réaliser ces "remplacer par" successifs tel que décrit ci-dessus.

Merci d'avance

C'est bon, j'ai retrouvé la solution :

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 = Nothing
    Set f2 = Nothing
End Sub

Merci à Arturo83

bonjour,

une proposition

Sub aargh()
    Set ws1 = Sheets("feuille 1")
    Set ws2 = Sheets("feuille 2")
    dl = ws2.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 1 To dl
        ws1.Range("A10:Z9999").Replace ws2.Cells(i, 2), ws2.Cells(i, 3), lookat:=xlPart
    Next i
End Sub