Macro selection de toutes les feuilles d'un classeur

Sub RemplacerPar()
    Dim intWS As Integer
    Dim strAncien As String
    Dim strNouveau As String
    
    strAncien = "Ancien texte"
    strNouveau = "Nouveau texte"
    
    For intWS = 1 To ThisWorkbook.Worksheets.Count
        Worksheets(intWS).Activate
        Cells.Replace What:=strAncien, Replacement:=strNouveau, LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next intWS
End Sub

Sub test()
Dim w As Worksheet
For Each ws In Worksheets
    ws.Cells.Replace What:="nom site", Replacement:=" ", LookAt:=xlWhole, _
         MatchCase:=False
Next ws
End Sub

Sub test()
Dim w As Worksheet
For Each ws In Worksheets
    ws.Cells.Replace What:="nom site", Replacement:=" ", LookAt:=[B]Xlpart[/B], _
         MatchCase:=False
Next ws
End Sub

Sub test()
Dim w As Worksheet, c As Range
For Each ws In Worksheets
    Set c = ws.Cells.Find("nom site", , xlValues, xlPart, , , False)
    If Not c Is Nothing Then ws.Name = Right(c.Value, 3)
    ws.Cells.Replace What:="nom site", Replacement:=" ", LookAt:=xlPart, _
         MatchCase:=False
Next ws
End Sub

'cette ligne recherche  "nom site" dans la feuille
Set c = ws.Cells.Find("nom site", , xlValues, xlPart, , , False)
'si trouvé renomme la feuille par les 19 derniers caracères de la cellule ou se
'trouvait la chaine de caractère recherchée 
    If Not c Is Nothing Then ws.Name = Right(c.Value, [B]19[/B])
'ensuite 1er code donné qui remplacait le nom
    ws.Cells.Replace What:="nom site", Replacement:=" ", LookAt:=xlPart, _
         MatchCase:=False