si, recherche et remplacer

Bonjour

Je suis occupé de réalisé un programme en VBA mais je reste bloqué sur un sujet peut-être simple mais pas moyen de trouver comment le réaliser. Pour changer les données sur la colonne A pas de soucis mais je voudrais ajoute que SI en colonne B (equipe) il s'agit d'un 1, 2, 3 ou 4, selon ce que j'ecris dans (equipe),ect.... que les donées change en colonne A

Quelqu'un pourrait m'aider ?
merci


Dim Cell As Range
Dim Mot As Variant
Dim Replace As Variant
Dim equipe As Variant

equipe = InputBox("quelles équipes ?", Title:="équipes")
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
If equipe = "" Then Exit Sub
If Mot = "" Then Exit Sub
If Replace = "" Then Exit Sub


If equipe = True Then
Sheets("blad1").Range("a1:a500").Replace what:=Mot, Replacement:=Replace
End If