Worksheets(cboMois.Value).Activate
ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
' On affecte les données du formulaire dans la source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = Me.txtPrenom
ActiveCell.Offset(0, 2) = Me.txtNom
ActiveCell.Offset(0, 3) = Me.txtEmail
ActiveCell.Offset(0, 4) = CCur(Me.txtTarif)
'On affecte les données dans la fiche bilan
Feuil1.Select
Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = Me.txtPrenom
ActiveCell.Offset(0, 1) = Me.txtNom