Erreur sur code VBA

Bonjour la famille
Merci de m'aider SVP !!
Je suis débutante en programmation VBA, et j'ai besoin de rectifier le code ci-dessous. Je voudrai copier coller valeur des cellule d'une colonne si la date est égale à celle d'une cellule "C1".
voici le code :

Sub cop_col_val()

Dim col As Integer
Dim lig As Integer

Worksheets("Feuil2").Active

For col = 7 To 20

If Cells(3, col).Value = Cells(1, 3).Value Then
For lig = 3 To 13
Range(Cells(lig, 3)).Select
Selection.Copy
Range(Cells(lig, col)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End If
Next

End Sub