Insérer plusieurs feuilles vierges ?

Bonjour,

toujours en train de travailler sur mes gigantesques fichiers, je souhaite encore automatiser de nouvelles tâches.

Ici, il s'agirait de créer une macro permettant d'intercaler une feuille vierge entre chaque feuille déjà existante.

Exemple :

J'ai les feuilles 1, 2, 3 et 4 appelées respectivement disons F1, F2, F3 et F4.

Sachant que toutes les feuilles vierges s'appellent FeuilleX, j'aimerais obtenir en un clin d'oeil les feuilles

F1, Feuille1, F2, Feuille2, F3, Feuille3, F4, Feuill4

Actuellement, je procède ainsi :

Clic sur le deuxième onglet --> insérer --> Feuille

Positionnement sur le dernier onglet (= clic gauche sur dernière feuille)

CRTL+Y

CTRL+PagePrécèd

CRTL+Y

CTRL+PagePrécèd

CRTL+Y

CTRL+PagePrécèd

etc.

ce qui m'occasionne donc des répétitions sur mon clavier

Sauriez-vous créer une macro qui intercale autant de feuilles que souhaitées (J'ai parfois une centaine d'onglets)?

Bonjour,

Sub InserFeuilles()
    Dim i%, nf%
    nf = Worksheets.Count * 2 - 1
    Application.ScreenUpdating = False
    For i = 2 To nf Step 2
        Worksheets.Add before:=Worksheets(i)
    Next i
End Sub

Cordialement.

Bonjour MFerrand,

c'est génial, ça fonctionne du tonnerre. Merci!