Sub test()
Dim texteCherche As String, texteRemplace As String, i As Integer, curSheet As Worksheet
Dim plage As Range
Dim tmpWbk As Workbook
Dim tableauClasseurs As Variant
' récupérer le texte à remplacer
texteCherche = CStr(Application.InputBox("texte cherché"))
ou texteCherche = "bla bla bla"
' récupérer le nouveau texte
texteRemplace = CStr(Application.InputBox("nouveau texte"))
ou texteRemplace = "je suis débutant, et j'apprends grâce à vous"
' boucler sur chaque feuille du classeur
For Each curSheet In Worksheets
With curSheet ou With Sheets("Feuil1")
Set plage = .Range("w2:w" & .Range("w" & .Rows.Count).End(xlUp).Row)
plage.Cells.Replace what:=texteCherche, replacement:=texteRemplace, lookat:=xlPart
End With
Next curSheet
End Sub