Cette légère modification dégage tout le contenu du pour être feuille collée avant de faire la pâte de copie
Button1_Click secondaires ()
Le faible WS comme feuille de travail, ds comme feuille de travail
Faible lRow en tant que longtemps
Placer le WS = le ThisWorkbook.Worksheets (la « source »)
Placer ds = ThisWorkbook.Worksheets (« réconcilier »)
ds. Gamme (ds. Cellules (5, 1), ds. Cellules (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Espace libre
lRow = le WS. Gamme (« C65536 »). Extrémité (xlUp). Rangée
le WS. Gamme (« C5 : C » et lRow). Copier le ds. Gamme (« A5 »)
le WS. Gamme (« H6 : H » et lRow). Copier le ds. Gamme (« C5 »)
le WS. Gamme (« J6 : J » et lRow). Copier le ds. Gamme (« E5 »)
Sous-marin d'extrémité