re,
Je ne comprend pas ce qui ne fonctionne pas. Pour effacer sur toutes les feuilles, il faut utiliser une boucle, d'ou la ligne For i=1 to Sheets.Count qui va de 1 au nombre de feuille présentent dans ton classeur.
Ensuite, pour chaque feuille, je lui dis d'effacer le contenu de toutes les cellules, d'ou la ligne Cells.Clear.
Voili, voilou, j'espère qu'avec ce petit complément d'informations ca ira, si ce n'est pas le cas refais signe.
@+