Remplacer une chaine de caratères à partir d'un tableau

Option Explicit

Sub macro()
Dim TexteAremplacer$, TexteDEremplacement$
Dim C As Range, Plage As Range
TexteAremplacer = Feuil2.Range("A1")
TexteDEremplacement = Feuil2.Range("A1").Offset(, 1)
Set Plage = Feuil1.Range("E1:E" & [E65536].End(xlUp).Row)
For Each C In Plage
If Not IsEmpty(C) Then
C.Value = Replace(C.Text, TexteAremplacer, TexteDEremplacement)
End If
Next
End Sub

Sub test()
Dim i As Long
Dim wS As Worksheet
Dim wD As Worksheet
Application.ScreenUpdating = False
Set wS = ThisWorkbook.Sheets("Feuil2")
Set wD = ThisWorkbook.Sheets("Feuil1")
    With wD
        For i = 1 To .Range("E65536").End(xlUp).Row
        .Cells(i, "E") = _
                "snkne=" & Chr(34) & _
                 wS.Cells(i, "A").Text & Chr(34)
        Next
    End With
Application.ScreenUpdating = True
Set wS = Nothing
Set wD = Nothing
End Sub

Sub test2()
Dim i As Long, j As Long
Dim wS As Worksheet
Dim wD As Worksheet
Dim Prefixe, AdrCol
Prefixe = Array("uniqueid=", "srcne=", "src=", "snkne=", "snk=")
AdrCol = Array("B", "C", "D", "E", "F")
Application.ScreenUpdating = False
Set wS = ThisWorkbook.Sheets("Feuil2")
Set wD = ThisWorkbook.Sheets("Feuil1")
    With wD
        For i = 1 To .Range("E65536").End(xlUp).Row
        For j = 0 To UBound(AdrCol)
        .Cells(i, CStr(AdrCol(j))) = _
                Prefixe(j) & Chr(34) & _
                 wS.Cells(i, "A").Text & Chr(34)
            Next j
        Next i
    End With
Application.ScreenUpdating = True
Set wS = Nothing
Set wD = Nothing
End Sub