Private Sub Ajouter_Click()
'----------------------------------------
'pour ajouter les données du formulaire !
'----------------------------------------
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Long
Dim vReponse As Integer
vReponse = MsgBox("voulez-vous ajouter des données ?", vbYesNo + vbInformation, "ATTENTION")
If vReponse = vbYes Then
With Worksheets("Clients")
derligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
For Each Ctrl In MENU.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
ComboBoxCATEGORIE = ""
Unload Me
MENU.Show
End
End If
End Sub