Private Sub b_validation_Click()
With Sheets("Feuil1")
.Range("A" & .[A65536].End(3).Row).Offset(1, 0) = Me.Nom
End With
With Sheets("Feuil2")
.Range("A" & .[A65536].End(3).Row).Offset(1, 0) = Me.Prénom
End With
With Sheets("Feuil3")
.Range("A" & .[A65536].End(3).Row).Offset(1, 0) = Me.Adresse
End With
End Sub