Excel macro copier/coller une colonne

Bonjour,
Voilà, sous excel en vb, je voudrai coder une macro qui copie une colonne (seulement la valeurs) et qui la colle dans une autre feuille.
Seulement cela me genere une erreur :

sub test ()
Dim Colonne, Ligne As Integer

Dim nbreJour As Integer

nbreJour = Sheets("parametres").Range("B3").Value
Sheets("PI").Range("CF14").Select
Colonne = ActiveCell.Column
Ligne = ActiveCell.Row
Sheets("PI").Range(Cells(Ligne, Colonne), Cells(Ligne + nbreJour - 1, Colonne)).Select
Sheets("Calcul").Range("B12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

end sub