Dim qx(106)
Dim lx(106)
Public Sub Init()
'les tables sont lues sur les champs et tranférées en variables-tableaux
Dim x As Integer, s As Integer
'Dim Table As Object
'Set Table = CurrentDb.OpenRecordset('EKMF_95', dbOpenDynaset)
For x = 0 To 105
If x > 15 Then
qx(x) = Worksheets('Feuil1').Cells(x - 15, 2)
lx(x) = Worksheets('Feuil1').Cells(x - 15, 3)
End If
Next x
End Sub
Public Function px(x) As Variant
'
px = 1 - qx(x)
End Function