Aide sur macro

Bonjour,

J'ai 2 tableaux, le premier en A1:L2 et le second en A5:L6

J'ai une macro (bouton) qui change les données de la seconde ligne de chaque tableau. (fichier joint)

Je voudrais qu'a chaque pression du bouton (macro), excel me copie/colle la seconde ligne de chaque tableau* plus bas et ainsi de suite car chaque pression me change les données

*Copier/coller la ligne A2:L2 (premier tableau) en A11:L11 ainsi que la ligne A6:L6 (second tableau) en N11:Y11

Exemple

Première pression du bouton et il me copie/colle la ligne A2:L2 (premier tableau) en A11:L11 ainsi que la ligne A6:L6 (second tableau) en N11:Y11

Seconde pression du bouton et il me copie/colle la ligne A2:L2 (premier tableau) en A12:L12 ainsi que la ligne A6:L6 (second tableau) en N12:Y12

Troisième pression du bouton et il me copie/colle la ligne A2:L2 (premier tableau) en A13:L13 ainsi que la ligne A6:L6 (second tableau) en N13:Y13

etc...

Bonjour,

A tester cette macro si j'ai bien compris

Sub CopyColle()
Dim Derlig As Long
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
Derlig = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:L2").Copy
Range("A" & Derlig + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("A6:L6").Copy
Range("A" & Derlig + 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    .CutCopyMode = False
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub

Bonne Journée

Bonjour

Bonjour DL_13

Un essai

Bonjour Banzai64, le fil

Ah oui j'avais mal lu le collage du 2ème tableau... désolé

de plus ton code est bien plus harmonieux j'ai encore du boulot

le Code corrigé quand même

Sub CopyColle()
Dim Derlig As Long
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
Derlig = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:L2").Copy
Range("A" & Derlig + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("A6:L6").Copy
Range("N" & Derlig + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    .CutCopyMode = False
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub

Bonne Journée

Merci à vous deux

C'est le résultat recherché