Sub Modifier()
Dim sep$, RemplacerPar, ncol%, tablo, i&, s, j%, k%
sep = "," 'séparateur modifiable
RemplacerPar = [A1].CurrentRegion.Resize(2) 'matrice, plus rapide
ncol = UBound(RemplacerPar, 2)
tablo = [A4].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 2 To UBound(tablo)
s = Split(tablo(i, 1), sep)
For j = 0 To UBound(s)
For k = 2 To ncol
If s(j) = CStr(RemplacerPar(1, k)) Then s(j) = RemplacerPar(2, k): Exit For
Next k, j
tablo(i, 2) = Join(s, sep)
Next
[A4].Resize(UBound(tablo), 2) = tablo 'restitution
End Sub