Si colonnes (1).Rows (1).Value = puis ""
d'abord = colonnes (1).End (xlDown). Adresse
Autrement
d'abord = colonnes (1).Rows (1).Address
Finir si
bout = colonnes (1).SpecialCells (xlCellTypeLastCell). Adresse
Gamme (d'abord et « : » et dernier). Destination de copie : =Workbooks (1).Sheets (2).Cells (1)
|