Il manque toujours les points devant les Cells, ça revient à écrire :
Application.WorksheetFunction.VLookup("FCF", Sheets(3).Range(Sheets(3).Cells(14, 1), Sheets(3).Cells(18, 16)), 6, 0)
With Sheets(3)
test = Application.WorksheetFunction.VLookup("FCF", .Range(.Cells(14, 1), .Cells(18, 16)), 6, 0)
End With
Alors que tu as écrit l'équivalent de :
Application.WorksheetFunction.VLookup("FCF", Sheets(3).Range(Activesheet.Cells(14, 1), Activesheet.Cells(18, 16)), 6, 0)
d'où l'erreur !