Function createVlook(wk As Variant, wk2 As Variant)
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
wk.Activate
Set FL1 = ActiveWorkbook.ActiveSheet
NoCol = 24 'lecture de la colonne 24
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
Var = FL1.Cells(NoLig, NoCol)
With FL1
.Range("""" & lettre_col(NoCol) & NoLig & Chr(34)).Value = WorksheetFunction.VLookup(.Range("M" & NoLig).Value, wk2.Sheets(1).Range("1:65536"), 8, False)
End With
Next
Set FL1 = Nothing
End Function