Salut Xavier, salut le forum,
Si j'ai bien compris ton problème (c'est pas sûr du tout...), voici ta macro que j'ai modifiée :
Dim I As Integer
I = Worksheets("Liste_absent").Range("A200").End(xlUp).Row
Range(Cells(I, 1), Cells(I, 8)).Copy Destination:=Cells(I + 1, 1)
Worksheets("Liste_absent").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Liste_absent").Range("D" & I + 1).Value = TextBox2.Value
Worksheets("Liste_absent").Range("E" & I + 1).Value = TextBox3.Value
Worksheets("Liste_absent").Range("F" & I + 1).Value = TextBox4.Value
Worksheets("Liste_absent").Range("G" & I + 1).Value = TextBox5.Value
Worksheets("Liste_absent").Range("H" & I + 1).Value = ComboBox2.Value
ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show
À plus,
Robert