Problème vba "vlookup"

Bonjour, je suis vraiment débutant en toute forme de codage, et je dois faire une sorte de maccro sur vba... mais ca cloche! Est ce que qqn pourrait m'expliquer ce qui ne va pas avec le programme suivant? Merci

Private Sub CommandButton1_Click()
Dim a As Long
Dim k As Long



a = 1
For k = 9 To 2701 'liste des cases de c/c
If Worksheets("cc").Cells(k, 1) <> "" Then 'si les cases ne sont pas vides
a = a + 1 'le a permet de ne pas s'aligner sur les liges du feuillet cc
Worksheets("vba").Cells(a, 1) = Worksheets("cc").Cells(k, 1) 'c/c
Worksheets("vba").Cells(a, 2) = Worksheets("cc").Cells(k, 2) 'Machines
Worksheets("vba").Cells(a, 3) = WorksheetFunction.VLookup(Worksheets("vba").Cells(a, 1), Range(Worksheets("cc").Cells(2701, 1), Worksheets("cc").Cells(2701, 3)), 3) (<= le problème semble être sur cette ligne) End If
Next k




End Sub



Merci d'avance