Macro VBA suppression texte dans plusieurs cellules

Bonjour,

Mon problème est le suivant, j'aimerais avoir une macro qui me permettrai de définir par l'intermédiare d'une boite de dialogue, un texte a supprimer en une seul fois pas celule par cellule dans tout l'onglet de mon classeur, de la même façon qu'un crtl+h en quelque sort, sauf que la je voudrais par la suite intégré cette macro a un userform qui regroupe tout mes macros

Merci d'avance

Bonjour,

Dans un premier temps, inspire toi du code généré par l'enregistreur de macro quand tu utilises CTRL + H

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Supr() Dim Sh As Worksheet Dim Str As String   Str = InputBox("Entrez le mot à supprimer!") If Str <> "" Then For Each Sh In ThisWorkbook.Worksheets Sh.UsedRange.Replace Str, "" Next Sh End If End Sub

---