Bouton macro pour dupliquer une plage de cellules

Bonjour,

Je souhaiterai copier une plage de cellule définie (B1 : AL30) et la coller 2 lignes en dessous de la dernière ligne non vide et ainsi de suite avec un bouton.

Un clic sur le bouton copierait mes lignes et les collerait à partir de B32 et un deuxième clic les copieraient une deuxième fois à la suite.

J'espère être assez clair et merci d'avance pour vos idées.

Grégoire

Bonjour,

Une solution avec l'événement Worksheet_BeforeRightClick

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim DerniereLigne As Long

     If Target.Count > 1 Then Exit Sub

     If Not Intersect(Target, Range("B1:AL30")) Is Nothing Then
        DerniereLigne = Cells(Rows.Count, 2).End(xlUp).Row
        Range("B1:AL30").Copy Destination:=Cells(DerniereLigne + 3, 2)
     End If

     Cancel = False

End Sub

Merci Eric,

Je ne retrouve pas ta macro dans la partie "affecter une macro" à mon bouton alors que celle-ci est collée dans visual basic.

Ai-je oublié une étape?

Clic-droit sur une cellule de B1:AL30. L'événement est dans ton module d'onglet...

Ah oui je vois, j'aurai souhaité dupliquer en cliquant sur un bouton inséré.