Remplacer le contenu de plusieurs cellules

• si ce sont toutes les feuilles du classeur, clic droit sur un onglet et "sélectionner tout
• si il y a d'autre feuille à ne pas traiter, placer tous les noms d'onglet cote à cote en bas de page, sélectionner le 1°, enfoncer la touche shift, sélectionner le dernier, tous les onglets entre les deux sont sélectionnés

• touche ctrl + touche h

• remplacer > entrer le nombre à éliminer
• en Bas placer 1
• et remplacer tout

Sub un()
    Dim sh As Worksheet, pl As Range
    For Each sh In Worksheets
        Set pl = sh.Range("A:BJ").SpecialCells(xlCellTypeConstants, xlNumbers)
        If Not pl Is Nothing Then pl.Value = 1
    Next sh
End Sub