Insert+copier formules et mise en forme

bonjour,

a l aide d un bouton, je souhaite insérer deux lignes et copier les formules et mise en forme des lignes en dessous ,ceci par rapport a ma sélection de cellule.

Bonjour

Tu sélectionnes tes 2 lignes et tu cliques.

Cordialement

merci pour ta réponse.

néanmoins je souhaite forcer la sélection de deux lignes.

en effet, l utilisateur lambda ne va pas forcement sélectionner deux lignes et par ce fait compromettre les calculs qui sont basé sur des lignes paires et impaires.

je souhaite donc que lorsqu une ligne est sélectionnee et bien se soit deux lignes qui se génèrent automatiquement,avec les formules et mise en formes.

Bonjour

Sub Ligne_Formules()
    Range(Selection, Selection.Offset(1, 0)).Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Cordialement

bien mais problème:

en fait une protection de cellule empêche la sélection de la ligne entière, seule la première cellule est activé d ou une insertion de deux lignes que sur une colonne^^