Macro Insertion ligne

Bonjour à toutes et tous,

Je viens vers vous aujourd'hui car je n'arrive pas à résoudre un problème (surement tout bête) avec ma macro.

Mon problème est le suivant:

Je souhaiterai qu'en cliquant sur le bouton "Ajouter", ma macro insère une nouvelle ligne "au dessous de la ligne ou le bouton est présent."

Et que dans cette nouvelle ligne qui a été insérée, je retrouve :

• les formules des colonnes BA, BB et BC.
• le contenu texte de la colonne BD
• toutes les listes déroulantes de D, E, F , I -> AZ avec leur mise en forme conditionnelle.

Ma macro actuelle ne remplit qu'à moitié ce que j'ai besoin de faire.

L'insertion se fait au dessus, et non en dessous. Le c/c des listes déroulantes ne marche pas toujours et je n'arrive pas à la faire fonctionner autrement qu'avec la cellule active.

Ci dessous ma macro, et un échantillon du fichier.

Sub Test()
With ActiveCell
         .EntireRow.Insert xlShiftDown 'Insere une ligne au dessus
         .EntireRow.Copy ' Copie la ligne active
         With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
             .PasteSpecial xlPasteFormats
             .PasteSpecial xlPasteFormulas
         End With
         Application.CutCopyMode = False
     End With

End Sub

En vous remerciant par avance de votre aide précieuse,

Cordialement.

Bonjour Rémi_G et

Pas simple avec des boutons sur une feuille

Voici ton fichier avec le code, je te rappelle ta demande au cas ou

Je souhaiterai qu'en cliquant sur le bouton "Ajouter", ma macro insère une nouvelle ligne "au dessous de la ligne ou le bouton est présent."

A+

Ca fonctionne parfaitement. Un grand merci à toi, c'est exactement ce que je cherchais à faire