Bonjour
Si tu as numéroté en A1
Sub EnleverNumero()
indice = 0
nbFeuille = ThisWorkbook.Sheets.Count
For Each feuille In ThisWorkbook.Sheets
indice = indice + 1
With feuille.Range("A1")
.ClearContents
End With
Next feuille
End Sub
sinon, tu remplaces A1 par ta cellule.
Cordialement