Macro pourMFC sur toutes les feulles

Bonjour,
Sur mon fichier je voudrai créer une macro de manière que la MFC de la feuille 1 soit appliquée sur toutes les feuilles de mon classeur.
Exemple la MFC pour les valeurs 3 et 4 devraient être appliquée sur toutes les feuilles;
J'espère être assez clair et je vous remercie pour votre aide.

Bonjour,

Une façon de faire: copier le format de la colonne B de Feuil1 sur les autres.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub CopyFormatBB() Dim wSh As Worksheet, Rng As Range Set Rng = ThisWorkbook.Worksheets("Feuil1").Columns("B") Rng.Copy For Each wSh In ThisWorkbook.Worksheets If wSh.Name <> "Feuil1" Then wSh.Columns("B:B").PasteSpecial Paste:=xlPasteFormats End If Next wSh Set Rng = Nothing End Sub

---

Bonne continuation.

Re bonjour
J'ai testé ta solution, j'ai placé lecode dans la feuille 1 et dans le workbook sans résultat. Par contre dans le module et en créant un bouton ça fonctionne.
Mais je préfèrerai que ce soit automatique sans créer un bouton car c'est un dossier que j'alimente mois par mois.
Merci pour ton attention
Je joins le fichier avec le bouton et le reste

Bonjour,

Dans ce cas, il faut plutôt avoir une feuille "Modèle" avec un bouton qui crée une nouvelle feuille semblable à ce modèle.
Exemple de code:

Code:

---

1 2 3 4 5 6 7 8

Sub NouveauMois() Sheets("Modèle").Copy Before:=Sheets("Modèle") ActiveSheet.Name = InputBox("Nom à donner à cette nouvelle feuille: ", _ " A compléter", _ Format(Date, "yy.mm")) ActiveSheet.Shapes.Range("Button 1").Delete Range("A2").Select End Sub

---

Bonne continuation.

Merci Eric ça fonctionne pas mal a plus