Hi I need some help on Vlookup in VBA. I don't know why, but I have a
error with the function.

Dim CoutUnitaire(10) As Double
Dim i As Integer


Worksheets("Mold base").Activate
Range("c17").Activate

For i = 1 To 10

CoutUnitaire(i)
Application.WorksheetFunction.VLookup(ActiveCell.O ffset(i, 0).Value
Worksheets("ListePrix").Range("A:d"), 4, False) ' I want to selec
Column A To D completly
Next i
MsgBox CoutUnitaire(1)
End Sub

gracia

--
Message posted from http://www.ExcelForum.com