Macro recherche/remplacement

Sub test()
Dim texteCherche As String, texteRemplace As String, curSheet As Worksheet, tmpWbk As Workbook

' 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 les classeurs ouverts
For Each tmpWbk In Application.Workbooks
    ' ne pas traiter ce classeur
    If tmpWbk.Name <> ThisWorkbook.Name Then
        ' 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
    End If
Next tmpWbk
End Sub

Sub test2()
Dim theSheet As Worksheet, tmpWbk As Workbook, nomOnglet As String
nomOnglet = "caisse et palettisation"


' boucler sur les classeurs ouverts
For Each tmpWbk In Application.Workbooks
    ' ne pas traiter ce classeur
    If tmpWbk.Name <> ThisWorkbook.Name Then
    
        ' si la feuille existe,...
        On Error Resume Next
        ThisWorkbook.Sheets(nomOnglet).Select
        If Err.Number = 0 Then
            '...on la supprime
            Application.DisplayAlerts = False
            ThisWorkbook.Sheets(nomOnglet).Delete
            Application.DisplayAlerts = True
        End If
        On Error GoTo 0
        
        'copier la feuille dans le classeur
        ThisWorkbook.Sheets(nomOnglet).Copy after:=tmpWbk.Sheets(1)
    End If
Next tmpWbk
End Sub

Sub test2()
Dim theSheet As Worksheet, tmpWbk As Workbook, nomOnglet As String
nomOnglet = "caisse et palettisation"


' boucler sur les classeurs ouverts
For Each tmpWbk In Application.Workbooks
    ' ne pas traiter ce classeur
    If tmpWbk.Name <> ThisWorkbook.Name Then
            
        'copier la feuille dans le classeur
        ThisWorkbook.Sheets(nomOnglet).Copy after:=tmpWbk.Sheets(tmpWbk.Sheets.Count)
        Set theSheet = tmpWbk.Sheets(tmpWbk.Sheets.Count)
        
        If Not theSheet.Name = nomOnglet Then
            Application.DisplayAlerts = False
            tmpWbk.Sheets(nomOnglet).Delete
            Application.DisplayAlerts = True
            theSheet.Name = nomOnglet
        End If
        
    End If
Next tmpWbk
End Sub

...
...
            tmpWbk.Sheets(nomOnglet).Delete
            Application.DisplayAlerts = True
            theSheet.Name = nomOnglet
        End If
        [B]theSheet.Shapes("[I][COLOR=Red]nomBouton[/COLOR][/I]").Delete[/B]
    End If
Next tmpWbk
End Sub

...
...
            tmpWbk.Sheets(nomOnglet).Delete
            Application.DisplayAlerts = True
            theSheet.Name = nomOnglet
        End If
        [COLOR=Red][B]On Error Resume Next[/B][/COLOR]
        [COLOR=Black]theSheet.Shapes("[I]nomBouton[/I]").Delete[/COLOR]
        [B][COLOR=Red]On Error GoTo 0[/COLOR][/B]
    End If
Next tmpWbk
End Sub