problème VBA fonction vlookup et variable

bonjour,

j'ai un petit problème avec mon code vba, il bloque sur une fonction recherche V avec des variables ????
Besoin d'aide ....

Ci dessous une partie de mon code :


Dim col As Integer

derlign = Range("A65000").End(xlUp).Row 'donne la dernière ligne non vide en colonne B

For i = 2 To derlign

'recherche une formule en couleur
If Cells(i, 1).Interior.ColorIndex = 28 Then

'recherche de la ligne concernée ...
ligne = Cells(i, 5).Value
If ligne = "xx" Then
nbre = 2
Else
nbre = 3
End If

'recherche la colonne de la formule dans tableau des formules
col = Sheets("Formules").Range("A1:K10").Find(Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole).Column

' recherche de l'alternative dans tableau
alt = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Alternative").Range(Cells(2, col), Cells(10, (col + 2))), nbre, False)

End If

Next


Merci d'avance