Bonsoir
Juste une première ébauche (qui ne fait que deux choses)
Sub Test1_matt988()
'source:
Excel VBA Examples(4)
'sub originale: Reset_Values_All_WSheets
'adaptée par Staple1600
Dim wSht As Worksheet
Dim myRng As Range
Dim allwShts As Sheets
Dim cel As Range
Set allwShts = Worksheets
For Each wSht In allwShts
Set myRng = wSht.UsedRange
For Each cel In myRng
If Not cel.HasFormula And cel.Value = "mot" Then
'Remplacer mot par la chaine de caractère à chercher
cel.Offset(0, 2).Value = "TROUVE"
cel.Offset(0, -2).Value = "PRONOSTIC"
End If
Next cel
Next wSht
End Sub