[VBA-E]:copier des cellules en gardant les fomules

bonjour à tous
jai un ptit soucis.
je bloque sur un truc dans ma procédure
voila le topo:
jai deux colonnes(disons C et D): je veux récupérer la derniére ligne de ces deux colonnes les copier sur la premiére ligne vide de ces deux colonnes tout en gardant les formules de calcul
jai essayé avec l'enregistreur mais ca passe pas:

encore merci de votre aide.ce site est génial!;)

tiens un peu de code pour colonne C...;)

Code:

---

1 2 3 4 5 6 7

Sub Macro1() Dim r As Range Set r = Range("C65535").End(xlUp) ' Je considére qu'on travaille 'sur la feuille active r.Copy r.Offset(1, 0) 'Copie une ligne plus bas .. End Sub

---

ca marche:D :D
merci beaucoups