If CommandButton4.Caption = "Nouveau" Then
If Me.ComboBox2.ListIndex = -1 Then MsgBox Me.Label2 & ", votre sélection,svp": Me.ComboBox2.SetFocus: Exit Sub
If Me.ComboBox3.ListIndex = -1 Then MsgBox Me.Label3 & ", votre sélection,svp": Me.ComboBox3.SetFocus: Exit Sub
TextBoxObligatoire Me 'en cours
' If NbTbo = MaxTbo Then'à mettre en commentaire
Set x = Sh_BD.Range("Bd").ListObject.ListRows.Add
lg = Sh_BD.Range("Bd").ListObject.ListRows.Count
RempliLigne
EffaceTextBox Me
Me.ComboBox2 = ""
Me.ComboBox3 = ""
NbTbo = 0
' End If'à mettre en commentaire
End If