probleme recherche-remplace vba

bonsoir,

j'ai un formulaire qui me permet de creer de nouveaux clients, je souhaite avoir la possibilité de consulter et de modifier ces données

pour modifier, j'ai un userform qui reprend les données et permet de remplacer mais mon code ne fonctionnne que sur une seule donnée et non les deux !!
voici mon code :


a = TextBox1.Value
b = TextBox2.Value
c = TextBox2.Value
d = TextBox2.Value


Sheets("Feuil1").Select
Cells.Replace What:=a, Replacement:=b, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("feuil1").Select
Cells.Replace What:=c, Replacement:=d, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

alors si vous avez une idée ??? merci d'avance😛