Erreur 1004 en VBA pour l'incrementation d'une cellule

Bonjour a tous,

Je suis un gros novice en VBA. Mais je souhaiterai coller dans la cellule B12 une information de type date puis ensuite incrementer la cellule B12 pour a nouveau coller une nouvelle date mais en C12

j'obtiens l'erreur 1004 lors du lancement du programme.

Voici mon code VBA :

Sub test()
Dim ValueDate As Date '<-- déclaration type Date et pas type String
Dim Col


ValueDate = Worksheets("SHEET1").Range("A1").Value
Col = Worksheets("Sheet1").Range("B1").Value


If ValueDate = Date Then
MsgBox "OK"

Worksheets("ANNUAL CALENDAR").Select
Range("D2:D9").Select
Range("D2:D9").Copy
Worksheets("Sheet1").Select
ActiveSheet.Range(Cells(4, Cells(1, 2)), Cells(11, Cells(1, 2))).Activate
Range(Cells(4, Cells(1, 2)), Cells(11, Cells(1, 2))).PasteSpecial xlPasteValues
Range("A1").Select
Range("A1").Copy
Range(Cells(12, Cells(1, 2))).Activate
Range(Cells(12, Cells(1, 2))).PasteSpecial xlPasteValues
Range("A1").Activate
Range("A1") = ValueDate + 7
Range("B1").Activate
Range("B1") = Col + 1



Else
MsgBox "MAUVAIS"
End If

End Sub

Merci pour votre aide

Bien a vous,

Christophe