Bonjour Delph, le Forum
Voilà un code qui devrait convenir :
Sub ReplaceTablo()
Dim Base As Variant
Base = Sheets("Feuil1").Range("A1:B3") '<<<< à adapter
For i = 1 To UBound(Base)
With Sheets("Feuil2")
Cells.Replace Base(i, 1), Base(i, 2), 1, 1, False
End With
Next
End Sub
Si tu veux aussi remplacer les "Toto" en "Tata" compris à l'intérieur d'une String (Exemple "TheTotoMobile" deviendra "TheTataMobile") alors change cette ligne :
Cells.Replace Base(i, 1), Base(i, 2), 2, 1, False
Et si tu veux respecter la casse alors c'est comme ceci :
Cells.Replace Base(i, 1), Base(i, 2), 1, 1, True
Bonne Soirée
@+Thierry