couper/coller en fin de tableau

[kinel]

bonjour à tous

A partir d'un tableau je voudrai sélectionner une ligne, la couper et la coller dans une autre feuille, du même ou d'un autre classeur, en archivage.

comment fait on pour que le coller se fasse toujours en fin de liste ?

Merci de votre aide

Kinel

 

[Catrice]

Re : couper/coller en fin de tableau

Bonjour,

Un exemple à adapter :

Sub Test()
ActiveSheet.Range("A1:C1").Copy Sheets("feuilDest").Range("A65536").End(xlUp).Offset(1, 0)
End Sub

où Range("A1:C1") peut etre une zone variable...

 

[kinel]

Re : couper/coller en fin de tableau

super

merci beaucoup c'est exactement ce que je voulais

Kinel