Rechercher remplacer multiple

Bonjour à tous,

Étant une vrai quiche sur excel, j'ai besoin de votre aide

j'ai besoin de faire un rechercher remplacer multiple,

Je vais essayer de m'expliquer :

Feuille 1>>

• Colonne A tous les mots à chercher
• Colonne B tous les mot à remplacer

Il faut que le rechercher remplacer ce face sur la feuille 2, qui doit contenir env 1000 lignes

J'espère que je suis assez claire

Bonjour,

voici un exemple,

Sub Recherche_Remplace()
Dim firstAddress As String, c As Range, i As Long
Dim sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")

For i = 1 To sh1.Cells(Rows.Count, 1).End(xlUp).Row
     With sh2.Cells
       Set c = .Find(sh1.Cells(i, 1), LookIn:=xlValues, LookAt:=xlPart) 'à adapter
       If Not c Is Nothing Then
           firstAddress = c.Address
           Do
               On Error Resume Next
               sh2.Range(c.Address) = sh1.Cells(i, 2).Value
               Set c = .FindNext(c)
           Loop While Not c Is Nothing And c.Address <> firstAddress
       End If
    End With
    firstAddress = ""
Next i
End Sub