Private Sub cbxDomaine_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Ajout données dans la liste Domaine
If IsError(Application.Match(Me.cbxDomaine, Worksheets("DATA").Range("DOMAINE"), 0)) And Me.cbxDomaine <> "" Then
Worksheets("DATA").Range("DOMAINE").End(xlDown).Offset(1, 0) = Me.cbxDomaine
Worksheets("DATA").Range("DOMAINE").Sort key1:=Range("DOMAINE")(1)
End If
End Sub