Private Sub CBNom_Change()
Dim rep As String
If CBNom.Value = "Ajout" Then
Me.CBNom.Style = 0
rep = InputBox("Renseignez le nom du nom.", "Nom")
Me.CBNom.Value = rep
If rep = "" Then
CBNom.Value = ""
End If
Else
Me.CBNom.Style = 2
Exit Sub
End If
End Sub