'Ouverture formulaire de saisie nouvel adherent
Private Sub Inserer_Click()
'Insertion des donnees des la ligne 3 de la feuille adherents
Worksheets("adherents").Rows(3).Select
Selection.Insert
'Remise a zero du formulaire apres insertion des donnees
With Nouveau
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Adresse1.Text = ""
.Adresse2.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Email.Text = ""
.Nombre.Text = ""
.Total.Text = ""
.Reglement.Text = ""
'Insertion date dans textbox dateajout
.DateAjout = Date
End With
'Numérotation automatique des lignes
Range("A3").Value = Range("A4").Value + 1
Nouveau.Show
End Sub