Couper Coller à la suite sur une autre feuille

Bonjour tout le monde,

Déjà merci, vous m'avez sans doute déjà sorti de la mouise sans que j'ai besoin de poster...

Mon problème est assez classique et il a déjà été exposé plusieurs fois sur le forum mais aucune des solutions proposées ne semblent convenir..

Je souhaite couper/coller des lignes de ma feuille1 vers ma feuille2 mais à la suite des lignes précédemment collées.... et ceux en utilisant mon bouton (feuille1 colonne A).

Je vous mets mon fichier en pj....

Merci d'avance!

Bonjour Jean, bonjour le forum,

Supprime ces cases à cocher inutiles qui ne font qu'alourdir ton fichier et essaye le code ci-dessous qui réagit au clic du bouton droit dans une cellule :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'au clic du bouton droit dans l'onglet
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OD = Worksheets("Feuil2") 'définit l'onglet de destination OD
If Target.Column < 0 Or Target.Column > 9 Then Exit Sub 'si le clic du bouton droit a lieu ailleurs que dans les colonnes 1 à 9, sort de la procédure
Cancel = True 'empêche le menu contextuel lié au double-clic
Set DEST = OD.Cells(Application.Rows.Count, "B").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST (première cellule vide de la colonne B de l'onglet OD)
Cells(Target.Row, "B").Resize(1, 8).Copy DEST 'copie la ligne de la cellule où a eu lieu le clic du bouton droit et la colle dans DEST
End Sub

Merci... j'ai mis le code dans les macros mais rien ne se passe quand je fais clique droit dans une des cellules....

Je ne suis pas doué....

Ca marche!!

Merci beaucoup!