Bonsoir le forum

Le code ci-dessous me fatigue.
Je cherche à copier coller les données d'une plage et les coller sur une autre.
La plage source est Sheets("INV_CAISSE_DEBUT") et la plage à copier est E2:E38.
La feuille de DESTINATION est Sheets("ETAT_SORTIE_CAISSE") et le collage doit se faire à partir de C3.
D'abord en C2 la date du jour-1 devra y être collée
Ensuite les éléments copiés devront être collés à partir de la 3eme ligne de la 3eme colonne.
NB :
- le collage devra se faire au fur et à mesure
- le collage se fait aussi à la fin de chaque colonne
c'est à dire dès que la 2ème ligne de la dernière colonne est vide, on colle la date du jour moins 1 suivi du collage de la plage copiée.
Lorsque j'exécute mon code, le collage se fait au même endroit et très lent.
Je sais que mon code n'est pas parfait et je sollicite vos contributions pour le parfaire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim derncol As Integer
 
Dim DEST As Range, DEST1 As Range
 
derncol = Cells(3, Cells.Columns.Count).End(xlToLeft).Column + 1
 
    Set f = Sheets("ETAT_SORTIE_CAISSE")
 
    Set ft = Sheets("INV_CAISSE_DEBUT")
 
    Set DEST = f.Cells(3, derncol)
 
    Set DEST1 = f.Cells(2, derncol)
 
'DEST1 = Date
 
ft.Range("E2:E37").Copy
 
DEST.PasteSpecial Paste:=xlValues