Comment décaller un bloc de cellule Excel en VBA

Bonjours,
J'ai besoin de décaller tout un bloc de cellule Excel d'une ligne vers le haut. Le bloc à décaller fait 3600 lignes sur 3 colonnes. J'ai testé avec le code suivant :
Code:

1 2 3 4 5 6 7 Dim I As Integer For I = 1 To 3600 Sheets("DonneeGraph").Cells(I + 1, 1) = Sheets("DonneeGraph").Cells(I + 2, 1) Sheets("DonneeGraph").Cells(I + 1, 2) = Sheets("DonneeGraph").Cells(I + 2, 2) Sheets("DonneeGraph").Cells(I + 1, 3) = Sheets("DonneeGraph").Cells(I + 2, 3) Next I
Mais celà prend pas mal de ressource et je répéte l'opération toutes les secondes.
Si quelqu-un a une solution qui est plus obtimisée ! ! !
Merçi d'avance.

en essayant avec une macro, le code généré est :

Code:

1
2
3
4
    Range("D8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut Destination:=Range("F5:F25")
    Range("F5:F25").Select

voila voila

Ok en faisant comme ça c'est beaucoup moins lourd pour le PC.
Code:

1 2 Sheets("DonneeGraph").Range("A3:C3600").Cut _ Destination:=Sheets("DonneeGraph").Range("A2:C3599")
Encore merçi.