Sub TestReplace()
Dim eBayCat As Range
Dim Col As Range
Dim Plg As Range
Set eBayCat = ActiveWorkbook().Sheets("Trad").UsedRange
eBayCat.Interior.Color = RGB(150, 200, 250)
'Colonne NOK
Set Col = ActiveWorkbook().Sheets("ColNok").UsedRange.Columns("B")
Col.Interior.Color = RGB(200, 100, 100)
For Each c In eBayCat.Columns(1).Cells
Col.Replace c.Value, c.Offset(0, 1).Value, xlPart
Next c
'Range OK
Set Plg = ActiveWorkbook().Sheets("PlgOk").UsedRange.Columns("B")
Plg.Interior.Color = RGB(100, 200, 100)
For Each c In eBayCat.Range("A1:A" & eBayCat.Rows.Count)
Plg.Replace c.Value, c.Offset(0, 1).Value, xlPart
Next c
End Sub