Sub test()
Dim tableauClasseurs, texteCherche As String, texteRemplace As String, i As Integer, curSheet As Worksheet, tmpWbk As Workbook
' récupérer les classeurs concernés
tableauClasseurs = Application.GetOpenFilename(filefilter:="Fichiers Excel, *.xls; *.xlsx", MultiSelect:=True)
' récupérer le texte à remplacer
texteCherche = CStr(Application.InputBox("texte cherché"))
' récupérer le nouveau texte
texteRemplace = CStr(Application.InputBox("nouveau texte"))
' boucler sur chaque classeur
For i = LBound(tableauClasseurs) To UBound(tableauClasseurs)
' ouvrir le classeur
Set tmpWbk = Application.Workbooks.Open(tableauClasseurs(i))
' boucler sur chaque feuille du classeur
For Each curSheet In tmpWbk.Worksheets
' remplacer les deux textes
curSheet.Cells.Replace what:=texteCherche, replacement:=texteRemplace, lookat:=xlPart
Next curSheet
' sauver et fermer le classeur
tmpWbk.Close True
Next i
End Sub