Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsError(Application.Match(Me.ComboBoxNom, Range("personnels"), 0)) And Me.ComboBoxNom <> "" Then
Range("personnels").End(xlDown).Offset(1, 0) = Me.ComboBoxNom
Range("personnels").Sort key1:=Range("personnels")(1)
End If
End Sub