Bonsoir Temjeh, bonsoir le forum,
Ce n'est pas vraiment une réponse que je te propose mais une manière relativement simple d'y parvenir. Tu sauvegardes certainement ton fichier avec une macro contenant un save as. Alors, rajoute ces lignes avant le End Sub de cette macro :
Dim sh As Worksheet 'déclare la variable sh
Application.ScreenUpdating = False 'n'affiche pas le changement d'onglet
'boucle sur tous les onglets de ton classeur
For Each sh In Sheets
sh.Select 'sélectionne l'onglet
sh.Cells.ClearContents 'efface le contenu de toutes les cellules de l'onglet
sh.Range("A1").Select 'sélectionne la cellule A1
Next sh 'prochain onglet de la boucle
Sheets(1).Select 'sélectionne le premier onglet du classeur
Application.ScreenUpdating = True 'réaffiche le changement d'onglet
ActiveWorkbook.Save 'sauve le classeur
À plus,
Robert