Désoler pour le temps de réponse non cela correspond pas, mais j'ai finalement trouvé ça qui pourrait être adapté si quelqu'un peut m'aider a finalisé le code
Sub Multi_FindReplace()
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long
fndList = Array("Yes", "United States", "Mexico") 'a remplacer par listbox colonne 1
rplcList = Array("no", "USA", "MEX") 'a remplacer par listbox colonne 2
For x = LBound(fndList) To UBound(fndList)
Sheets("texte").Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next x
End Sub