Private Sub ComboBoxTraitements_Change()
Dim Honoraire As Double
If ComboBoxPrestation.Value = "Consultations" Then
Sheets("Consultation ").Select
i = 2
While Cells(i, 2) <> ComboBoxTraitements.Value
i = i + 1
Wend
numLigne = i
Honoraire = Cells(numLigne, 11)
MsgBox (Honoraire)
End If
End Sub