Private Sub b_validation_Click()
'--- Positionnement dans la base
[A65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Nom)
ActiveCell.Offset(0, 1).Value = Prénom
ActiveCell.Offset(0, 2).Value = Ville
End Sub