If Me.ComboBox3 <> "" Then ' Le code d'imputation est renseigné
Me.Label18.Visible = True ' L'intitulé du code d'imputation est actif
With ImputationPlan
Sens = .Cells(Me.ComboBox3.ListIndex + 2, 4)
Me.Label18.Caption = .Cells(Me.ComboBox3.ListIndex + 2, 2) & _
" ( " & .Cells(Me.ComboBox3.ListIndex + 2, 3) & " / " & Sens & ")"
Select Case .Cells(Me.ComboBox3.ListIndex + 2, 7).Value
Case Is = "N"
Me.ComboBox1.Enabled = False: Me.Label23.Caption = ""
Case Is = "O"
Me.ComboBox1.Enabled = True: Me.Label21.Caption = .Cells(Me.ComboBox3.ListIndex + 2, 3)
End Select
Select Case .Cells(Me.ComboBox3.ListIndex + 2, 8).Value
Case Is = "F"
For Each CEL In PlanTiers.[NumTiers]
If Left(CEL.Value, 1) = "F" Then Me.ComboBox1.AddItem CEL.Value
Next CEL
Case Is = "C"
For Each CEL In PlanTiers.[NumTiers]
If Left(CEL.Value, 1) = "C" Then Me.ComboBox1.AddItem CEL.Value
Next CEL
Case Is = "S"
For Each CEL In PlanTiers.[NumTiers]
If Left(CEL.Value, 1) = "S" Then Me.ComboBox1.AddItem CEL.Value
Next CEL
End Select
Select Case .Cells(Me.ComboBox3.ListIndex + 2, 4).Value
Case Is = "S"
Me.TextBox8.Enabled = False: Me.TextBox6.Enabled = True
Case Is = "E"
Me.TextBox8.Enabled = True: Me.TextBox6.Enabled = False
End Select
End With
End If