Copier ligne de tableau2 à tableau1

Bonjour à tous,

J’ai besoin d’aide pour cette macro

Après plusieurs essais, j'aimerais dans la même feuille ou se trouve 2 tableaux, copier une ligne au choix du tableau 2 vers la ligne supérieure du tableau 1, insérer une ligne en plus au-dessus du tableau 1 et ensuite la ligne que j’ai sélectionnée dans le tableau 2 disparaisse automatiquement. J’ai fait une petite macro 1 VBA avec un bouton (copier) mais cela ne fonctionne pas. Je joins la feuille.

Merci d’avance à tous

Sub Macro1()

' Macro1

ActiveCell.Select

Selection.Copy

lign = ActiveCell.Row

debut = "E" & lign

Fin = "G" & lign

Range(debut, Fin).Select

Selection.Copy

Range("A6").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Selection.ListObject.ListRows.Add (1)

Application.Goto Reference:="Tableau2"

lign = ActiveCell.Row

debut = "E" & lign

Fin = "G" & lign

Range(debut, Fin).Delete

Range("A6").Select

End Sub

Bonsoir,

ci-jointe proposition

Bonjour,

Désolé, j'active le bouton (Déplace)r avec ta macro et il ne se passe rien quand je sélectionne une ligne dans le tableau 2

Eugène

Je m'aperçois que j'ai fait l'inverse : tableau1 vers tableau 2

ci-dessous rectification

Salut

Effectivement cela ne fonctionnait pas, mais maintenant c'est ok

Je te remercie

A plus peut-être.

Eugène