Merci beaucoup.
J'ai pas tous compris mais je vais tester pour mieux comprendre, sinon ses bon j'ai trouver au finale sa donne sa :
Private Sub Valider_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("Liste des clients").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Liste des clients").Cells(Lg, "A").Value = Nouveauxclients.TextBox1.Value
Sheets("Liste des clients").Cells(Lg, "B").Value = Nouveauxclients.TextBox2.Value
Unload Me
End Sub
elle est pas entière il y a beaucoup d'autre :
Sheets("Liste des clients").Cells(Lg, "C (etc)").Value = Nouveauxclients.TextBox3 (etc).Value
A la suite.
Voila je suis au ange
Merci beaucoup a bientôt surement