Donc le fichier de Michel te suffit comme explication...bon ben c'est pas la peine que j'aille plus loin alors...très bien...
Par contre pour reprendre ce que je disais tout à l'heure et comme le confirme Baz concernant l'inscription des données en lignes, voici ce que je propose de mettre à la place de la macro de Michel...dès lors les données s'inscriront à la suite dans le tableau...
Option Explicit
Private Sub CommandButton1_Click()
Dim ValeurTableau As Integer
ValeurTableau = Sheets(1).Range("A1000:E1000").End(xlUp).Row + 1
With Sheets(1)
.Range("A" & ValeurTableau) = TextBox1.Value
.Range("B" & ValeurTableau) = TextBox2.Value
.Range("C" & ValeurTableau) = TextBox3.Value
.Range("D" & ValeurTableau) = TextBox4.Value
.Range("E" & ValeurTableau) = TextBox5.Value
.Range("E" & ValeurTableau) = TextBox6.Value
End With
Unload Me
End Sub
Voilà...Bonne continuation