Sub test()
Dim x As Long
Set plgH = Sheets("H").Range("I2:I" & Sheets("H").Cells(Rows.Count, 1).End(xlUp).Row)
Set plgG = Sheets("G").Range("B2:B" & Sheets("G").Cells(Rows.Count, 1).End(xlUp).Row)
x = Sheets("Récup").Range("A" & Sheets("Récup").Cells(Rows.Count, 1).End(xlUp).Row).Row + 1
plgH.Copy Sheets("Récup").Range("A" & x)
x = Sheets("Récup").Range("A" & Sheets("Récup").Cells(Rows.Count, 1).End(xlUp).Row).Row + 1
plgG.Copy Sheets("Récup").Range("A" & x)
Application.CutCopyMode = False
End Sub
Il faudrait que je récupère une colonne en plus de chaque onglet.
Sur l'onglet "Récup" en plus de la colonne "A" en colonne "B" , je souhaiterais récupérer les données de l'onglet "H" colonne "B" puis les données de l'onglet "G" colonne "D".