SubAverage:Avg(Nz([Score1],0)+Nz([Score2],0)+Nz([Score3],0))


([Minterro]*3+[compo1]+[compo2]*2+[compo3]*3)/9*[coef]

=================================
strRowSource = " Select [ID_Tarif],[Designation],[Prix_unitaire],[DDate]" & "From T_Tarifs"
Liste20.RowSource = strRowSource
===========================================
Private Sub IdBulletin_AfterUpdate()
Me![Matiere] = Me![IdBulletin].Column(1)
Me![Prix_unitaire] = Me![IdBulletin].Column(2)
End Sub