Sub remplaceraccueilPGT()
Dim w As Worksheet
For Each ws In Worksheets
ws.Cells.Replace What:="Accueil PGT Concept > Fiches techniques > Peugeot > Peugeot ", Replacement:="", LookAt:=xlPart, _
MatchCase:=False
Set c = ws.Cells.Find("106", , xlValues, xlPart, , , False)
If Not c Is Nothing Then ws.Name = Right(c.Value, 31)
Next ws
End Sub