Private Sub Validation_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Application.Proper(Me!Nom)
ActiveCell.Offset(0, 1).Value = Me.Adresse
ActiveCell.Offset(0, 2).Value = Me.Gare
ActiveCell.Offset(0, 3).Value = Me.CP
[COLOR=Blue][B]Adresse.Value = ""
Gare.Value = ""
CP.Value = ""
Nom.Value = ""[/B][/COLOR]
End Sub