Changer valeur cellule sur ttes les feuilles

Bonsoir,

Avez-vous un code pour changer la valeur d'une même cellule sur toutes les feuilles d'un classeur:

Cellule A4= "A faire"

Merci d'avance.

Bonsoir,

Un petit code à mettre sous un bouton :

Sub ChangerValeur()
Dim feuilleFin as Variant

FeuilleFIn = Sheets.Count

For a = 1 To FeuilleFIn

Sheets(a).Range("a4") = "A faire"

Next

End Sub

Bonne soirée, Bon week-end

Cdt

Air_2

Cool!

Merci!