Private Sub ID_Tarif_AfterUpdate()
Me![Dsignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(2)
End Sub

==================

