Private Sub CmdEdit_Click()
Sheets("Salariès").Select
Range("A7").End(xlDown).Offset(1, 0).Select
Selection = (Formulaire.TextBox1) ' nom
Selection.Offset(0, 1) = (Formulaire.Txt1) ' prenom
Selection.Offset(0, 2) = CDate(Formulaire.TextBox2) ' date de naissance
Selection.Offset(0, 3) = Formulaire.CmbListeStatut1.Value ' statut
Selection.Offset(0, 4) = (Formulaire.TextBox25) ' coefficient
Selection.Offset(0, 5) = Formulaire.CmbListeContrat.Value ' type de contrat
Unload Me
End Sub