bonjour Murdoc,
sans entrer trop dans le détail, j'ai regardé la macro qui correspond au bouton "Graphique" dont tu parles dans ton post.
Dans "Private Sub CommandButton5_Click()",
tu définis la première ligne sur laquelle doivent s'inscrire tes données, " L = Sheets("Tab_com").Range("A65536").End(xlUp).Row + 1 ",
puis tu as une succession de 4
.Range("A" & L).Value = ***
.Range("B" & L).Value = ***
.Range("D" & L).Value = *** avec *** étant des textbox différents.
En éxecutant ceci, tu écris, puis écrases 3 fois les valeurs de ces cellules ...
Ce qu'il faut, c'est à chaque série incrémenter "L".
****************************************
.Range("A" & L).Value = TextBox8.Value
.Range("B" & L).Value = TextBox7.Value
.Range("D" & L).Value = TextBox10.Value
L=L+1
.Range("A" & L).Value = TextBox13.Value
.Range("B" & L).Value = TextBox12.Value
.Range("D" & L).Value = TextBox15.Value
L=L+1
.Range("A" & L).Value = TextBox18.Value
.Range("B" & L).Value = TextBox17.Value
.Range("D" & L).Value = TextBox20.Value
L=L+1
.Range("A" & L).Value = TextBox23.Value
.Range("B" & L).Value = TextBox22.Value
.Range("D" & L).Value = TextBox25.Value
****************************************
Si tu as d'autres problèmes, n'hésite pas
amicalement