Private Sub GrpeTxtB_EFF_Change()
Somme_Eff = 0
Idx = Mid(GrpeTxtB_EFF.Name, 6, 1) * 10
With UsF_Gestion
For i = 1 To 4
Idx_Ctrl = Idx + i
With .Controls("TxtB_" & Idx_Ctrl)
.Value = IIf(.Value = "", 0, .Value)
Ctl_Value = .Value
End With
Somme_Eff = Somme_Eff + Ctl_Value
.Controls("TxtB_T_" & Idx) = Format(Somme_Eff / i, "0.00")
Next i
End With
End Sub