Remplacer une même valeur présente dans plusieurs onglets

Bonsoir Thomas

Une macro qui je crois répond à ta question.

Les textes à échanger sont dedans :

Sub Echanger()
Dim i As Byte
Dim Mot As String
Dim Change As String

Mot = "Accessoires livrés"
Change = "Livré avec :"
For i = 1 To Sheets.Count
Sheets(i).Select: Set trouvé1 = Cells.Find(What:=Mot)
If Not trouvé1 Is Nothing Then
trouvé1.Value = Change
étiq:
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If Not trouvé2 Is Nothing Then
trouvé2.Value = Change
GoTo étiq
End If
End If
Next i
Sheets(1).Activate
End Sub

Cordialement

CBernardT

Merci beaucoup !

Cdlt


Thomas.