Copier coller une plage de données d'un classeur à un autre et sauvegarder

Re : Copier coller une plage de données d'un classeur à un autre et sauvegarder

Je n'ai peut être pas été assez claire , je reprend alors.
Dans le classeur ci-joint j'ai 2 feuilles nomées "Onglet1" et "onglet2 mon but est de copier la plage B513 de "onglet" pour la coller dans "onglet2" quand la cellule C4 de "Onglet1" coïncide avec une cellule de la ligne 6 dans "onglet 2"

C'est -à-dire que si C4 de "onglet 2" = 01/08/2012 alors il ma macro doit copier la plage B513 et la coller sous la date 01/08/2012 de la feuille 2 (donc "onglet2")

J'espère avoir été sinon n'hésitez pas à me demander plus de précisions.
J'ai concocter le code suivant :

Private Sub Worksheet_Change(ByVal Sh As Object, ByVal Target As Range)
Dim D As Range, dercol As Long
With Sheets("Onglet2")
dercol = .Cells(6, .Columns.Count).End(xlToLeft).Column
If Target.Address = "$C$4" Then
Set D = .Range("C6", .Cells(6, dercol)).Find(Target, .Cells(6, dercol), LookIn:=xlValues)
If Not D Is Nothing Then
.Range(D(2, 0), D(10, 2)).Value = Sheets("Onglet1").Range("B513").Value
End If
End If
End Sub

Qui malheurseusment ne marche , lorsque j'essai de l'exécuter on me demande le de la macro au lieu...

A l'aide, aidez moi svp je bloque ....


Je vous mon nouveau fichier.