Range("c65536").End(xlUp).Offset(1, 0) mais du bas vers le haut

[pascal21]

.Range("A1:j1").Copy Sheets("sauvegardes").Range("c65536").End(xlUp).Offset(1, 0)

bonjour
j'utilise ce code pour copier en ligne des données d'une autre feuille
ça copie de haut en bas
mais est-il possible de faire en sorte que ça copie du bas vers le haut
je m'explique
1er saisie en feuille 1 vient se placer sur la ligne 4 de la feuille sauvegardes
2eme saisie vient se placer sur la ligne 4 et la première glisse sur la ligne 5
et ainsi de suite
merci

 

[néné06]

Re : Range("c65536").End(xlUp).Offset(1, 0) mais du bas vers le haut

Bonjour Pascal21

Il existe toujours la fonction insert.

Pour enregistrer en décalant d'une ligne

Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Pour enregistrer en décalant d'une cellule en colonne

Range("C4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Pris par l'editeur de macro

A+