Insertion ligne selon variable

Bonjour tout le monde !

Je viens vers vous car je n'arrive pas à résoudre un pb d'insertion de ligne selon la position d'une cellule.

Je vous explique : ma cellule "accessoire" peut-être amenée à changer de position selon l'insertion de lignes au dessus.

Or, lorsque l'on clique sur le bouton 5 vba, je souhaite qu'une ligne soit insérée en dessous de la cellule "accessoire".

J'ai mis en place cette macro mais elle ne fonctionne pas...

Private Sub CommandButton5_Click()

Dim l As Integer

l = Range("accessoire").Row

Rows("l+3:l+3").Insert Shift:=xlUp

End Sub

Voyez-vous d'où vient le pb ?

Je vous remercie d'avance

Bonjour,

Private Sub CommandButton5_Click()
Dim l As Integer
    l = Range("accessoire").Row
    Rows(l + 3).Insert Shift:=xlUp
End Sub

A+

Comme quoi on peut se prendre la tête pour pas grand chose haha

Je fais mes premiers pas en vba et je te remercie, Frangy pour ta réponse rapide.

A+

Je souhaite à présent copier le contenu d'une plage de cellule dépendant de la valeur de l en dessous.

J'ai essayer cette formule mais elle ne marche pas. Je pense que c'est la désignation de la plage de cellule qui est mauvaise.

Range("cells(l,4): cells(l+1,7)").Copy Destination:=Cells(l + 3, 4)

Je souhaite donc copier le contenu de la plage allant de la cellule (l , 4) à la cellule (l+1 , 7) et le coller dans la cellule (l+3 , 4)

Je vous remercie de votre aide.

J'ai trouvé !

C'est : Range(Cells(l, 4), Cells(l + 1, 7)).Copy Destination:=Cells(l + 3, 4)

Pour ceux que ca intéresse !